Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = EXGRIDLib.SortOrderEnum.SortAscending
	.EndUpdate()
	.BeginUpdate()
	.EnsureVisibleColumn(0)
	With .Items
		.ExpandItem(.FirstVisibleItem) = False
	End With
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	With .Columns
		.Add("C1")
		.Add("C2").FormatColumn = "1 index `A-Z`"
		.Add("C3").FormatColumn = "100 index ``"
	End With
	With .Items
		.AddItem("Item 1")
		.SelectItem(.AddItem("Item 2")) = True
		.AddItem("Item 3")
	End With
	.EndUpdate()
	Debug.Print( "Export CSV Selected Items Only:" )
	Debug.Print( .Export("","sel") )
End With

With AxGrid1
	.BeginUpdate()
	.ScrollBars = EXGRIDLib.ScrollBarsEnum.exDisableBoth
	.set_ScrollPartVisible(EXGRIDLib.ScrollBarEnum.exVScroll,EXGRIDLib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(&H2,EXGRIDLib.ScrollPartEnum.exExtentThumbPart,True)
	.ScrollWidth = 4
	.set_Background(EXGRIDLib.BackgroundPartEnum.exVSBack,15790320)
	.set_Background(EXGRIDLib.BackgroundPartEnum.exVSThumb,8421504)
	.ScrollHeight = 4
	.set_Background(EXGRIDLib.BackgroundPartEnum.exHSBack,.get_Background(EXGRIDLib.BackgroundPartEnum.exVSBack))
	.set_Background(EXGRIDLib.BackgroundPartEnum.exHSThumb,.get_Background(EXGRIDLib.BackgroundPartEnum.exVSThumb))
	.set_Background(EXGRIDLib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXGRIDLib.BackgroundPartEnum.exVSBack))
	.EndUpdate()
End With

Dim h
With AxGrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		.Add("Name")
		With .Add("Currency")
			.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
			.AllowSizing = False
			.Width = 64
			.FormatColumn = "currency(value)"
		End With
		With .Add("Format")
			.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
			.AllowSizing = False
			.Width = 64
			.FormatColumn = "`AED ` + (value format ``)"
		End With
	End With
	With .Items
		h = .AddItem("Value 1")
		.CellValue(h,1) = 10
		.CellValue(h,2) = 10
		h = .AddItem("Value 2")
		.CellValue(h,1) = 20
		.CellValue(h,2) = 20
	End With
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		With .Add("Car")
			.DisplayFilterButton = True
			.FilterType = EXGRIDLib.FilterTypeEnum.exFilter
			.Filter = "MAZDA"
		End With
		With .Add("Equipment")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
			.FilterType = EXGRIDLib.FilterTypeEnum.exPattern
			.Filter = "AIR BAG"
		End With
	End With
	With .Items
		.CellValue(.AddItem("Mazda"),1) = "Air Bag"
		.CellValue(.AddItem("Toyota"),1) = "Air Bag,Air condition"
		.CellValue(.AddItem("Ford"),1) = "Air condition"
		.CellValue(.AddItem("Nissan"),1) = "Air Bag,ABS,ESP"
		.CellValue(.AddItem("Mazda"),1) = "Air Bag, ABS,ESP"
		.CellValue(.AddItem("Mazda"),1) = "ABS,ESP"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		With .Add("Car")
			.DisplayFilterButton = True
			.FilterType = EXGRIDLib.FilterTypeEnum.exFilterDoCaseSensitive Or EXGRIDLib.FilterTypeEnum.exFilter
			.Filter = "Mazda"
		End With
		With .Add("Equipment")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
			.FilterType = EXGRIDLib.FilterTypeEnum.exFilterDoCaseSensitive Or EXGRIDLib.FilterTypeEnum.exPattern
			.Filter = "Air Bag"
		End With
	End With
	With .Items
		.CellValue(.AddItem("Mazda"),1) = "Air Bag"
		.CellValue(.AddItem("Toyota"),1) = "Air Bag,Air condition"
		.CellValue(.AddItem("Ford"),1) = "Air condition"
		.CellValue(.AddItem("Nissan"),1) = "Air Bag,ABS,ESP"
		.CellValue(.AddItem("Mazda"),1) = "Air Bag, ABS,ESP"
		.CellValue(.AddItem("Mazda"),1) = "ABS,ESP"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

Dim h
With AxGrid1
	.Columns.Add("Default").Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
	With .Items
		.LockedItemCount(EXGRIDLib.VAlignmentEnum.exTop) = 1
		h = .LockedItem(EXGRIDLib.VAlignmentEnum.exTop,0)
		.CellValue(h,0) = "sum(all,rec,%0)"
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(h,0) = "`Sum: ` + (value format ``) "
		.AddItem(10)
		h = .AddItem(20)
		.SortableItem(h) = False
		.FormatCell(h,0) = "value + ` <fgcolor=808080> this item is excluded from aggregate computations</fgcolor>`"
		.AddItem(30)
	End With
End With

Dim rs
With AxGrid1
	.BeginUpdate()
	.HasLines = EXGRIDLib.HierarchyLineEnum.exNoLine
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(6).AllowGroupBy = False
	With .Columns.Item(1)
		.GroupByFormatCell = "'<caption> (sum: <b>' + value + '</b>, of Freight)'"
		.GroupByTotalField = "sum(current,rec,%6)"
		.SortOrder = True
	End With
	.EndUpdate()
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxGrid1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddGroupItemEvent) Handles AxGrid1.AddGroupItem
	With AxGrid1
		With .Items
			Debug.Print( "Caption:" )
			Debug.Print( .CellCaption(e.item,.GroupItem(e.item)) )
			Debug.Print( "Value:" )
			Debug.Print( .CellValue(e.item,.GroupItem(e.item)) )
		End With
	End With
End Sub

Dim rs
With AxGrid1
	.BeginUpdate()
	.HasLines = EXGRIDLib.HierarchyLineEnum.exNoLine
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	With .Columns.Item(1)
		.GroupByFormatCell = "'<b><caption></b> (' + value + ') group'"
		.SortOrder = True
	End With
	.EndUpdate()
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxGrid1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddGroupItemEvent) Handles AxGrid1.AddGroupItem
	With AxGrid1
		With .Items
			.FormatCell(e.item,.GroupItem(e.item)) = "value + ` Min: <b>` + %13 + `</b> Max: <b>` + %14 + `</b> Sum: <b>` + %15 + `</b>, of Freight column`"
			.CellValue(e.item,"Min") = "min(current,all,dbl(%6))"
			.CellValueFormat(e.item,"Min") = EXGRIDLib.ValueFormatEnum.exTotalField
			.CellValue(e.item,"Max") = "max(current,all,dbl(%6))"
			.CellValueFormat(e.item,"Max") = EXGRIDLib.ValueFormatEnum.exTotalField
			.CellValue(e.item,"Sum") = "sum(current,all,dbl(%6))"
			.CellValueFormat(e.item,"Sum") = EXGRIDLib.ValueFormatEnum.exTotalField
		End With
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim rs
With AxGrid1
	.BeginUpdate()
	.HasLines = EXGRIDLib.HierarchyLineEnum.exNoLine
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True
	With .Columns
		.Add("Min").Visible = False
		.Add("Max").Visible = False
		.Add("Sum").Visible = False
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	.SortOnClick = EXGRIDLib.SortOnClickEnum.exNoSort
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.Indent = 13
	.HeaderVisible = False
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Items")
		.Add("Quantity").Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
		.Add("Sum").Visible = False
		.Add("Min").Visible = False
		.Add("Max").Visible = False
	End With
	With .Items
		h = .AddItem("Items")
		.CellMerge(h,0) = 1
		.FormatCell(h,0) = "`Items, <b>sum(` + %2 + `), min(` + %3 + `), max(` + %4 + `)</b>`"
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exHTML
		.CellValue(h,2) = "sum(current,dir,dbl(%1))"
		.CellValueFormat(h,2) = EXGRIDLib.ValueFormatEnum.exTotalField
		.CellValue(h,3) = "min(current,dir,dbl(%1))"
		.CellValueFormat(h,3) = EXGRIDLib.ValueFormatEnum.exTotalField
		.CellValue(h,4) = "max(current,dir,dbl(%1))"
		.CellValueFormat(h,4) = EXGRIDLib.ValueFormatEnum.exTotalField
		.CellValue(.InsertItem(h,Nothing,"Item 1"),1) = 10
		.CellValue(.InsertItem(h,Nothing,"Item 2"),1) = 20
		.CellValue(.InsertItem(h,Nothing,"Item 3"),1) = 30
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	.SortOnClick = EXGRIDLib.SortOnClickEnum.exNoSort
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.Indent = 13
	.HeaderVisible = False
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Items")
		.Add("Quantity").Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
	End With
	With .Items
		h = .AddItem("Items")
		.CellValue(h,1) = "sum(current,dir,dbl(%1))"
		.CellValueFormat(h,1) = EXGRIDLib.ValueFormatEnum.exTotalField
		.FormatCell(h,1) = "`Total: `+ value"
		.CellValue(.InsertItem(h,Nothing,"Item 1"),1) = 10
		.CellValue(.InsertItem(h,Nothing,"Item 2"),1) = 20
		.CellValue(.InsertItem(h,Nothing,"Item 3"),1) = 30
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim h,h1
With AxGrid1
	.BeginUpdate()
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	.SortOnClick = EXGRIDLib.SortOnClickEnum.exNoSort
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.HasLines = EXGRIDLib.HierarchyLineEnum.exThinLine
	.HeaderVisible = False
	.Columns.Add("Numbers").Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
	With .Items
		h = .AddItem("Numbers")
		.CellEditorVisible(h,0) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
		.ItemBold(.InsertItem(h,Nothing,10)) = True
		.ItemBold(.InsertItem(h,Nothing,20)) = True
		.ItemBold(.InsertItem(h,Nothing,30)) = True
		h1 = .InsertItem(h,Nothing,"not included")
		.CellEditorVisible(h1,0) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
		.CellValueFormat(h1,0) = EXGRIDLib.ValueFormatEnum.exHTML
		.CellHAlignment(h1,0) = EXGRIDLib.AlignmentEnum.RightAlignment
		.SortableItem(h1) = False
		h1 = .InsertItem(0,Nothing,"sum(all,rec,dbl(%0))")
		.ItemBold(h1) = True
		.SelectableItem(h1) = False
		.CellValueFormat(h1,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(h1,0) = "`Sum: ` + value"
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGrid1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddItemEvent) Handles AxGrid1.AddItem
	With AxGrid1
		.Items.SortableItem(e.item) = False
	End With
End Sub

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxGrid1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_CellStateChangedEvent) Handles AxGrid1.CellStateChanged
	With AxGrid1
		With .Items
			.SortableItem(e.item) = False
		End With
		.Refresh()
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	.TreeColumnIndex = -1
	.FullRowSelect = EXGRIDLib.CellSelectEnum.exColumnSel
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	.SortOnClick = EXGRIDLib.SortOnClickEnum.exNoSort
	.Columns.Add("Check Numbers").Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
	With .Items
		.CellHasCheckBox(.AddItem(10),0) = True
		h = .AddItem(20)
		.CellHasCheckBox(h,0) = True
		.CellState(h,0) = 1
		.CellHasCheckBox(.AddItem(30),0) = True
		h = .AddItem("sum(all,rec,dbl(%0))")
		.SelectableItem(h) = False
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(h,0) = "`sum on checked items : ` + value"
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	.TreeColumnIndex = -1
	.FullRowSelect = EXGRIDLib.CellSelectEnum.exColumnSel
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	.Columns.Add("Numbers").Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
	With .Items
		.AddItem(10)
		.AddItem(20)
		.AddItem(30)
		h = .AddItem("sum(all,rec,dbl(%0))")
		.SelectableItem(h) = False
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(h,0) = "`sum: ` + value"
		h = .SplitCell(h,0)
		.CellValue(0,h) = "min(all,rec,dbl(%0))"
		.CellValueFormat(0,h) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(0,h) = "`min: ` + value"
		h = .SplitCell(0,h)
		.CellValue(0,h) = "max(all,rec,dbl(%0))"
		.CellValueFormat(0,h) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(0,h) = "`max: ` + value"
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	.TreeColumnIndex = -1
	.FullRowSelect = EXGRIDLib.CellSelectEnum.exColumnSel
	.Columns.Add("Numbers").Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
	With .Columns.Add("Idx")
		.FormatColumn = "0 index ``"
		.Width = 24
		.AllowSizing = False
		.Enabled = False
	End With
	With .Items
		h = .AddItem("3 Numbers")
		.ItemHeight(h) = 0
		.SelectableItem(h) = False
		.InsertItem(h,Nothing,10)
		.InsertItem(h,Nothing,20)
		.InsertItem(h,Nothing,30)
		.ExpandItem(h) = True
		h = .AddItem("sum(0,dir,dbl(%0))")
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.SelectableItem(h) = False
		.FormatCell(h,0) = "`sum of first three numbers is ` + value"
		h = .AddItem("3 Numbers")
		.ItemHeight(h) = 0
		.SelectableItem(h) = False
		.InsertItem(h,Nothing,15)
		.InsertItem(h,Nothing,35)
		.ExpandItem(h) = True
		h = .AddItem("count(5,dir,dbl(%0))")
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.SelectableItem(h) = False
		.FormatCell(h,0) = "`count of next two numbers is ` + value"
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim h,h1
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesAtRoot
	.Columns.Add("Numbers").Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
	With .Items
		h = .AddItem("")
		.CellValue(h,0) = "sum(current,dir,dbl(%0))"
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(h,0) = "'sum of <fgcolor=FF0000><b>Direct</b> children: '+value + `</fgcolor> using <a>sum(current,dir,dbl(%0))`"
		.ItemForeColor(.InsertItem(h,Nothing,10)) = RGB(255,0,0)
		.ItemForeColor(.InsertItem(h,Nothing,20)) = RGB(255,0,0)
		.ItemForeColor(.InsertItem(h,Nothing,30)) = RGB(255,0,0)
		.ExpandItem(h) = True
	End With
	With .Items
		h = .AddItem("")
		.CellValue(h,0) = "sum(current,rec,dbl(%0))"
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(h,0) = "'sum of <fgcolor=00FF00><b>Leaf</b> chidlren: '+value +`</fgcolor> using <a>sum(current,rec,dbl(%0))`"
		.ItemForeColor(.InsertItem(.InsertItem(.InsertItem(.InsertItem(h,Nothing,100),Nothing,10),Nothing,10),Nothing,1)) = RGB(0,255,0)
		.ItemForeColor(.InsertItem(.InsertItem(h,Nothing,200),Nothing,2)) = RGB(0,255,0)
		.ItemForeColor(.InsertItem(.InsertItem(h,Nothing,300),Nothing,3)) = RGB(0,255,0)
		h1 = .InsertItem(h,Nothing,"sum(parent,direct,%0)")
		.CellValueFormat(h1,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(h1,0) = "'sum of <b>Parent Direct</b> children: '+value +`</fgcolor> using <a>sum(parent,direct,%0)`"
		h1 = .InsertItem(h,Nothing,"sum(parent,rec,%0)")
		.CellValueFormat(h1,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(h1,0) = "'sum of <fgcolor=00FF00><b>Parent Leaf</b> children: '+value +`</fgcolor> using <a>sum(parent,rec,%0)`"
		.ExpandItem(0) = True
	End With
	With .Items
		h = .AddItem("")
		.CellValue(h,0) = "sum(all,rec,dbl(%0))"
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(h,0) = "'sum of <fgcolor=FF00FF><b>All (leaf children)</b>: '+value  +`</fgcolor> using <a>sum(all,rec,dbl(%0))`"
	End With
	With .Items
		h = .AddItem("")
		.CellValue(h,0) = "sum(all,all,dbl(%0))"
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(h,0) = "'sum of <fgcolor=FF00FF><b>All (children)</b>: '+value  +`</fgcolor> using <a>sum(all,all,dbl(%0))`"
	End With
	.EndUpdate()
End With

Dim rs
With AxGrid1
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	With CreateObject("Exontrol.Print")
		.Options = "FitToPage = On"
		.PrintExt = AxGrid1.GetOcx()
		.Preview()
	End With
End With

With AxGrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	.SelForeColor = .ForeColor
	.SelBackColor = .BackColor
	.ShowFocusRect = False
	With .Columns
		With .Add("Format")
			.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" & _
"00FF>+'+(value format '2|.|3|,' ): '0.00') )"
			.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
		End With
	End With
	With .Items
		.AddItem(10)
		.AddItem(-8)
	End With
	.EndUpdate()
End With

Dim h
With AxGrid1
	With .Columns
		.Add("C1")
		.Add("C2")
		.Add("C3")
	End With
	With .Items
		h = .AddItem("Item 1")
		.CellValue(h,1) = "SubItem 1.1"
		.CellValue(h,2) = "SubItem 1.2"
		Debug.Print( .CellValue(h,2) )
	End With
End With

' SelectionChanged event - Fired after a new item has been selected.
Private Sub AxGrid1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.SelectionChanged
	With AxGrid1
		With .Items
			.ClearItemBackColor(0)
			.ItemBackColor(.SelectedItem(0)) = RGB(128,255,255)
		End With
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	.SelForeColor = .ForeColor
	.SelBackColor = .BackColor
	.ShowFocusRect = False
	With .Columns
		With .Add("Format")
			.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" & _
"00FF>+'+(value format '2|.|3|,' ): '0.00') )"
			.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
		End With
	End With
	With .Items
		.AddItem(10)
		.AddItem(-8)
	End With
	.EndUpdate()
End With

Dim rs
With AxGrid1
	.BeginUpdate()
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.Columns.Item(1).SortOrder = True
	.Columns.Item(2).SortOrder = True
	Debug.Print( .Columns.SortBarColumnsCount )
	.EndUpdate()
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxGrid1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddGroupItemEvent) Handles AxGrid1.AddGroupItem
	Dim h
	With AxGrid1
		With .Items
			h = .InsertItem(e.item,Nothing,"")
			.SelectableItem(h) = False
			.CellValue(h,6) = "min(parent,rec,dbl(%6))"
			.CellValueFormat(h,6) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
			.FormatCell(h,6) = "`<font ;7><b>Min</b>: ` + value"
			.ItemPosition(h) = 0
			h = .InsertItem(e.item,Nothing,"")
			.SelectableItem(h) = False
			.CellValue(h,6) = "max(parent,rec,dbl(%6))"
			.CellValueFormat(h,6) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
			.FormatCell(h,6) = "`<font ;7><b>Max</b>: ` + value"
		End With
	End With
End Sub

Dim rs
With AxGrid1
	.BeginUpdate()
	.HasLines = EXGRIDLib.HierarchyLineEnum.exNoLine
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True
	.EndUpdate()
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxGrid1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddGroupItemEvent) Handles AxGrid1.AddGroupItem
	Dim h
	With AxGrid1
		With .Items
			h = .InsertItem(e.item,Nothing,"")
			.SelectableItem(h) = False
			.CellValue(h,6) = "sum(parent,rec,dbl(%6))"
			.CellValueFormat(h,6) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
			.FormatCell(h,6) = "`<font ;7><b>Sum</b>: ` + value"
		End With
	End With
End Sub

Dim rs
With AxGrid1
	.BeginUpdate()
	.HasLines = EXGRIDLib.HierarchyLineEnum.exNoLine
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True
	.EndUpdate()
End With

' ItemOleEvent event - Fired when an ActiveX control hosted by an item has fired an event.
Private Sub AxGrid1_ItemOleEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ItemOleEventEvent) Handles AxGrid1.ItemOleEvent
	With AxGrid1
		Debug.Print( e.ev )
	End With
End Sub

Dim h
With AxGrid1
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.ScrollBySingleLine = True
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.ExpandItem(h) = True
		h = .InsertControlItem(h,"Exontrol.Grid")
		.ItemHeight(h) = 256
		With .ItemObject(h)
			.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
			.ScrollBySingleLine = True
			.Columns.Add("C1")
			.Columns.Add("C2")
			With .Items
				.CellValue(.AddItem(1),1) = 2
			End With
			h = .Items.AddItem(3)
			.Items.CellValue(h,1) = 4
			With .Items
				.ExpandItem(h) = True
				h = .InsertControlItem(h,"Exontrol.Grid")
				With .ItemObject(h)
					.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
					.Columns.Add("Inside-Inside")
					With .Items
						h = .AddItem("item")
						.InsertItem(h,Nothing,"child 1")
						.InsertItem(h,Nothing,"child 2")
						.InsertItem(h,Nothing,"child 3")
					End With
				End With
			End With
		End With
	End With
End With

With AxGrid1
	.Columns.Add("Default")
	With .Items
		.AddItem("Child 3")
		.AddItem("Child 2")
		.AddItem("Child 1")
		.ItemPosition(.ItemByIndex(0)) = 2
		.ItemPosition(.ItemByIndex(1)) = 1
		.ItemPosition(.ItemByIndex(2)) = 0
	End With
End With

Dim h1,h2,h3
With AxGrid1
	.Columns.Add("Default")
	With .Items
		h3 = .AddItem("Child 3")
		h2 = .AddItem("Child 2")
		h1 = .AddItem("Child 1")
		.ItemPosition(h3) = 2
		.ItemPosition(h2) = 1
		.ItemPosition(h1) = 0
	End With
End With

Dim h
With AxGrid1
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.ScrollBySingleLine = True
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.ExpandItem(h) = True
		h = .InsertControlItem(h,"Exontrol.Grid")
		.ItemHeight(h) = 256
		With .ItemObject(h)
			.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
			.ScrollBySingleLine = True
			.Columns.Add("C1")
			.Columns.Add("C2")
			With .Items
				.CellValue(.AddItem(1),1) = 2
			End With
			h = .Items.AddItem(3)
			.Items.CellValue(h,1) = 4
			With .Items
				.ExpandItem(h) = True
				h = .InsertControlItem(h,"Exontrol.Grid")
				With .ItemObject(h)
					.Columns.Add("Inside-Inside")
					.Items.AddItem("item")
				End With
			End With
		End With
	End With
End With

With AxGrid1
	With .Columns
		.Add("A")
		.Add("B")
		.Add("Sum").ComputedField = "dbl(%0) + dbl(%1)"
		.Add("Concaternation").ComputedField = "str(%0) + str(%1)"
	End With
	With .Items
		.CellValue(.AddItem(1),1) = 2
		.CellValue(.AddItem(21),1) = 22
	End With
End With

With AxGrid1
	With .Columns
		.Add("A").Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
		.Add("B").FormatColumn = "currency(%0)"
		.Add("C").FormatColumn = "%1 format ''"
	End With
	With .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
	End With
End With

' Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
Private Sub AxGrid1_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.ClickEvent
	With AxGrid1
		.Ungroup()
	End With
End Sub

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarHeight = 24
	.HeaderHeight = 24
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.ReadOnly = EXGRIDLib.ReadOnlyEnum.exReadOnly
	With .Columns.Item(1)
		.Alignment = EXGRIDLib.AlignmentEnum.CenterAlignment
		.Def(EXGRIDLib.DefColumnEnum.exCellBackColor) = 15790320
		.SortOrder = True
	End With
	.EndUpdate()
End With

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarHeight = 24
	.HeaderHeight = 24
	.BackColorSortBar = RGB(240,240,240)
	.BackColorSortBarCaption = .BackColor
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BdsIQAAYAQGKIYBkAKBQAGaAoDDgNw0QwAAxjMK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpA" & _
"AWL4tCyMc7QHKAWhrEAbJjgQYJUh+TQAAZCIJRXRQAL/K6rKwnSCQIgkUBpGKdBynEYoYxAfyESCJWyIahWAwoQjUMB1HLQAAxC5kKbkIxyBABFBdVjVeBYG78Bz+ABj" & _
"EovbAMEwPBqAMwmIAZDheA4FR4AGhTXKcbxrFaXZSzKckPRoADSZq1Sg5LjDJI2ABqU6ABqNLZtJKsZS4apABrWeZ3Q7QMLdFTwA4PH6EZhxXAYbTVeaPZjQIBAgI")
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	With .Columns.Item(1)
		.Alignment = EXGRIDLib.AlignmentEnum.CenterAlignment
		.Def(EXGRIDLib.DefColumnEnum.exCellBackColor) = 15790320
		.SortOrder = True
	End With
	With .Columns.Item(5)
		.Alignment = EXGRIDLib.AlignmentEnum.CenterAlignment
		.Def(EXGRIDLib.DefColumnEnum.exCellBackColor) = 16119285
		.SortOrder = True
	End With
	.set_Background(EXGRIDLib.BackgroundPartEnum.exSortBarLinkColor,16777216)
	.EndUpdate()
End With

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	With .Columns.Item(1)
		.Alignment = EXGRIDLib.AlignmentEnum.CenterAlignment
		.Def(EXGRIDLib.DefColumnEnum.exCellBackColor) = 15790320
	End With
	.EndUpdate()
End With

Dim rs
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.Columns.Item(6).AllowGroupBy = False
	With .Columns.Item(1)
		.GroupByTotalField = ""
		.GroupByFormatCell = ""
	End With
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGrid1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddItemEvent) Handles AxGrid1.AddItem
	With AxGrid1
		.Items.ItemDividerLineAlignment(e.item) = EXGRIDLib.DividerAlignmentEnum.DividerBoth
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim rs
With AxGrid1
	.BeginUpdate()
	.ScrollBySingleLine = True
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.Columns.Item(6).AllowGroupBy = False
	With .Columns.Item(1)
		.GroupByTotalField = "sum(current,rec,%6)"
		.GroupByFormatCell = "'<font ;11>' + <caption> + '</font> <fgcolor=808080>( Freight: ' + currency(value) + ')'"
	End With
	.DefaultItemHeight = 28
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGrid1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddItemEvent) Handles AxGrid1.AddItem
	Dim l
	With AxGrid1
		With .Items
			.ItemDividerLine(e.item) = EXGRIDLib.DividerLineEnum.EmptyLine
			l = .GroupItem(e.item)
			.CellSingleLine(e.item,l) = EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap
			.CellBold(e.item,l) = True
			.CellBackColor(e.item,l) = &H1000000
		End With
	End With
End Sub

Dim rs
With AxGrid1
	.BeginUpdate()
	.ScrollBySingleLine = True
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exNoLinesAtRoot
	.TreeColumnIndex = -1
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BKoCg6AADACAxRDAMgBQKAAzQFAYcBuGiGAAGMZhWgmFgAQhFcZQSKUOQTDKMIziaQIRDEMw5SSNIxyAK0QBkAqNQCkKKwIgmNYDSBMYABB" & _
"IMBwiGQaRJnegYRDUMJCQjRVITVLMNoXDKZIyqEAHfpWVJWSLHcIhDBJUjcOYyTiOQrzCK8dB0G6bIrGEZpYRAPwEYDIIjbQhqFYDChCNLwHScEAxC4kLhnKK6Vb9d6H" & _
"YhiOJYXhmDrfR7IMhyLI8QafFqXZhmOZZXizPY9T7QNB0LQ8eZbJqnahqOpaOx2W5dV7YNh2LTWGzXNq3bhuOzLbrme59X7gOB3RZeE4XRrHchxKq8XxnG6dZ7oOTUXo" & _
"fFOK5WmudQTh2LpfHOO5em+doSh4LwfhOS5mnGIw9D6LxfjOW5unSIQ+D8L4flOa5yD2fg/D+L5fnOe54ByigGAKAJgEgBBrgGYIICYCoCmCSAcGOA5hAgRgSgSYQBGo" & _
"FoFmGCBmBqBphGESgegeYgIgYIoHkSKIWCaCZigiJgqgqYhog4LoLmGSJGDKBZhEiVg2gMY4ImYCIBGOSJ1n6D5kAeZZ2hCZBHj4RoRl6J4eEqEpeAkNhOHaXYJEYUh0" & _
"GUSRVkwchlgkZZChaZZGnWOoXmYBpOGKGJamaLhmhmWhJiYahnlmSY2G4ZZZEmRhyGMZxJlWCBhFCFgWHaHpYkmSh+GSJp6AWG4amgRoOGeIZahmEoKGyJgKDWOIXGkB" & _
"wGFmJJcHkWoWHQJQqGWVoTmmRx+EuJ5eFkIoiHuJBKhWdIQGqB52D2KpgDiaougMIxqyODJrEgbgvi2YgYjKOoumKSpij4FIrFsBg0iyLBKj6RoOmqSwmimMpkCqGpOi" & _
"ibQJCaII0mmWxWFCJotgoXpahWaRLHaEY3mWag6mKIpuEmFoIjmaBbiYbIgi6RhaH+O5Onmcpyh2VYAAEASAg")
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exHLines
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	With .Columns.Item(1)
		.GroupByFormatCell = "'EmployeeID: ' + <caption> + '<br><font ;7><fgcolor=808080>Count: ' + value"
	End With
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGrid1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddItemEvent) Handles AxGrid1.AddItem
	With AxGrid1
		.Items.ItemDividerLine(e.item) = EXGRIDLib.DividerLineEnum.EmptyLine
	End With
End Sub

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.EndUpdate()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxGrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_MouseMoveEvent) Handles AxGrid1.MouseMoveEvent
	Dim c,h,hit
	With AxGrid1
		h = .get_ItemFromPoint(-1,-1,c,hit)
		Debug.Print( .Items.GroupItem(h) )
	End With
End Sub

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.EndUpdate()
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxGrid1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddGroupItemEvent) Handles AxGrid1.AddGroupItem
	With AxGrid1
		.Items.ExpandItem(e.item) = False
	End With
End Sub

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.EndUpdate()
End With

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "<fgcolor=FF0000>Try to drag the EmployeeID column here."
	.AllowGroupBy = True
	.Columns.Item(1).AllowGroupBy = False
	.EndUpdate()
End With

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True
	.EndUpdate()
End With

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.EndUpdate()
End With

With AxGrid1
	With .Columns.Add("Numbers").Editor
		.EditType = EXGRIDLib.EditTypeEnum.EditType
		.Numeric = EXGRIDLib.NumericEnum.exFloat
	End With
	.Items.AddItem(12)
End With

With AxGrid1
	With .Columns.Add("Numbers").Editor
		.EditType = EXGRIDLib.EditTypeEnum.EditType
		.Numeric = EXGRIDLib.NumericEnum.exInteger
	End With
	.Items.AddItem(12)
End With

With AxGrid1
	With .Columns.Add("Numbers").Editor
		.EditType = EXGRIDLib.EditTypeEnum.MaskType
		.Mask = "###.###"
	End With
	.Items.AddItem(12)
End With

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXGRIDLib.FilterListEnum.exShowFocusItem Or EXGRIDLib.FilterListEnum.exShowCheckBox Or EXGRIDLib.FilterListEnum.exSortItemsAsc Or EXGRIDLib.FilterListEnum.exLeafItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Item")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.Filter = "Child 1"
		.FilterType = EXGRIDLib.FilterTypeEnum.exFilter
	End With
	With .Columns.Add("Date")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.DisplayFilterDate = True
		.FilterList = EXGRIDLib.FilterListEnum.exShowExclude Or EXGRIDLib.FilterListEnum.exShowFocusItem Or EXGRIDLib.FilterListEnum.exShowCheckBox Or EXGRIDLib.FilterListEnum.exNoItems
		.Filter = #12/28/2010#
		.FilterType = EXGRIDLib.FilterTypeEnum.exDate
	End With
	.FilterCriteria = "%0 or %1"
	.set_Description(EXGRIDLib.DescriptionTypeEnum.exFilterBarOr,"<font ;18><fgcolor=FF0000>or</fgcolor></font>")
	.set_Description(EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd,"<font ;18><fgcolor=FF0000>and</fgcolor></font>")
	With .Items
		h = .AddItem("Root 1")
		.CellValue(.InsertItem(h,Nothing,"Child 1"),1) = #12/27/2010#
		.CellValue(.InsertItem(h,Nothing,"Child 2"),1) = #12/28/2010#
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.CellValue(.InsertItem(h,Nothing,"Child 1"),1) = #12/29/2010#
		.CellValue(.InsertItem(h,Nothing,"Child 2"),1) = #12/30/2010#
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	With .Columns.Add("Date")
		.SortType = EXGRIDLib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.DisplayFilterDate = True
		.FilterList = EXGRIDLib.FilterListEnum.exShowExclude Or EXGRIDLib.FilterListEnum.exShowFocusItem Or EXGRIDLib.FilterListEnum.exShowCheckBox Or EXGRIDLib.FilterListEnum.exNoItems
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	With .Columns.Add("Date")
		.SortType = EXGRIDLib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.DisplayFilterDate = True
		.FilterList = EXGRIDLib.FilterListEnum.exShowFocusItem Or EXGRIDLib.FilterListEnum.exShowCheckBox Or EXGRIDLib.FilterListEnum.exNoItems
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	With .Columns.Add("Dates")
		.SortType = EXGRIDLib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.DisplayFilterDate = True
		.FilterList = EXGRIDLib.FilterListEnum.exShowFocusItem Or EXGRIDLib.FilterListEnum.exShowCheckBox
		.Filter = "to 12/27/2010"
		.FilterType = EXGRIDLib.FilterTypeEnum.exDate
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	With .Columns.Add("Dates")
		.SortType = EXGRIDLib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.DisplayFilterDate = True
		.FilterList = EXGRIDLib.FilterListEnum.exShowFocusItem Or EXGRIDLib.FilterListEnum.exNoItems
		.Filter = "to 12/27/2010"
		.FilterType = EXGRIDLib.FilterTypeEnum.exDate
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	With .Columns.Add("Dates")
		.SortType = EXGRIDLib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.DisplayFilterDate = True
		.FilterList = EXGRIDLib.FilterListEnum.exShowFocusItem Or EXGRIDLib.FilterListEnum.exNoItems
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.EndUpdate()
End With

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.set_Description(EXGRIDLib.DescriptionTypeEnum.exFilterBarExclude,"Leaving out")
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXGRIDLib.FilterListEnum.exShowExclude Or EXGRIDLib.FilterListEnum.exShowFocusItem Or EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
	End With
	.EndUpdate()
End With

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXGRIDLib.FilterListEnum.exShowExclude Or EXGRIDLib.FilterListEnum.exShowFocusItem Or EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
	End With
	.EndUpdate()
End With

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXGRIDLib.FilterListEnum.exShowFocusItem Or EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.SelectItem(.InsertItem(h,Nothing,"Child 2")) = True
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXGRIDLib.FilterListEnum.exShowBlanks Or EXGRIDLib.FilterListEnum.exNoItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXGRIDLib.FilterListEnum.exShowBlanks Or EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXGRIDLib.FilterListEnum.exSingleSel
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.set_Description(EXGRIDLib.DescriptionTypeEnum.exFilterBarAll,"")
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.FilterList = EXGRIDLib.FilterListEnum.exNoItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.FilterList = EXGRIDLib.FilterListEnum.exNoItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With

Dim h
With AxGrid1
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.Indent = 12
	.HasLines = EXGRIDLib.HierarchyLineEnum.exThinLine
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
	End With
End With

Dim h
With AxGrid1
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesAtRoot
	.Indent = 12
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
	End With
End With

Dim h
With AxGrid1
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.Indent = 12
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
	End With
End With

Dim h
With AxGrid1
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesInsideLeaf
	.Indent = 12
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
	End With
End With

Dim h
With AxGrid1
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesInside
	.Indent = 12
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
	End With
End With

Dim h
With AxGrid1
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLines
	.Indent = 12
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(.InsertItem(h,Nothing,"Child 2"),Nothing,"SubChild 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
	End With
End With

Dim h
With AxGrid1
	.BeginUpdate()
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exRowLines
	.DefaultItemHeight = 36
	.FullRowSelect = EXGRIDLib.CellSelectEnum.exColumnSel
	With .Columns
		With .Add("Column1")
			.Visible = False
			.Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
		End With
		With .Add("Column2")
			.Visible = False
			.Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
		End With
		With .Add("Column3")
			.Alignment = EXGRIDLib.AlignmentEnum.CenterAlignment
			.HeaderAlignment = EXGRIDLib.AlignmentEnum.CenterAlignment
			.Visible = False
			.Def(EXGRIDLib.DefColumnEnum.exCellHasButton) = True
			.Def(EXGRIDLib.DefColumnEnum.exCellButtonAutoWidth) = True
		End With
		With .Add("FormatLevel")
			.FormatLevel = "(0/1),2:64"
			.Def(EXGRIDLib.DefColumnEnum.exCellFormatLevel) = .FormatLevel
		End With
	End With
	With .Items
		h = .AddItem("Cell 1.1")
		.CellValue(h,1) = "Cell 1.2"
		.CellValue(h,2) = "Cell 1.3"
		h = .AddItem("Cell 2.1")
		.CellValue(h,1) = "Cell 2.2"
		.CellValue(h,2) = "Cell 2.3"
	End With
	.EndUpdate()
End With

Dim h
With AxGrid1
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Default")
		.Def(EXGRIDLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
	End With
	With .VisualAppearance
		.Add(1,"XP:Button 3 12")
		.Add(2,"XP:Button 3 11")
		.Add(3,"XP:Button 3 10")
	End With
	.set_CheckImage(EXGRIDLib.CheckStateEnum.Unchecked,16777216)
	.set_CheckImage(EXGRIDLib.CheckStateEnum.Checked,33554432)
	.set_CheckImage(EXGRIDLib.CheckStateEnum.PartialChecked,50331648)
End With

With AxGrid1
	With .Columns.Add("Edit").Editor
		.EditType = EXGRIDLib.EditTypeEnum.EditType
		.Option(EXGRIDLib.EditorOptionEnum.exEditAllowContextMenu) = False
	End With
	With .Items
		.AddItem(10)
		.AddItem(20)
	End With
End With

With AxGrid1
	With .Columns.Add("DropDownList").Editor
		.EditType = EXGRIDLib.EditTypeEnum.DropDownListType
		.AddItem(1,"DDList 1")
		.AddItem(2,"DDList 2")
		.AddItem(3,"DDList 3")
	End With
	With .Columns.Add("DropDown").Editor
		.EditType = EXGRIDLib.EditTypeEnum.DropDownType
		.AddItem(1,"DDType 1")
		.AddItem(2,"DDType 2")
		.AddItem(3,"DDType 3")
	End With
	With .Items
		.CellValue(.AddItem(1),1) = AxGrid1.Columns.Item(1).Editor.FindItem(1)
		.CellValue(.AddItem(2),1) = AxGrid1.Columns.Item(1).Editor.FindItem(2)
	End With
End With

With AxGrid1
	With .Columns.Add("DropDownList").Editor
		.EditType = EXGRIDLib.EditTypeEnum.DropDownListType
		.AddItem(1,"First item")
		.AddItem(2,"Second item")
		.AddItem(3,"Third item")
	End With
	With .Columns.Add("DropDown").Editor
		.EditType = EXGRIDLib.EditTypeEnum.DropDownType
		.AddItem(1,"First item")
		.AddItem(2,"Second item")
		.AddItem(3,"Third item")
	End With
	With .Items
		.CellValue(.AddItem(1),1) = "Any"
		.CellValue(.AddItem(2),1) = "Any"
	End With
End With

With AxGrid1
	.BeginUpdate()
	.Columns.Add("Padding-Left").Def(EXGRIDLib.DefColumnEnum.exHeaderPaddingLeft) = 18
	With .Columns.Add("Padding-Right")
		.Def(EXGRIDLib.DefColumnEnum.exHeaderPaddingRight) = 18
		.HeaderAlignment = EXGRIDLib.AlignmentEnum.RightAlignment
	End With
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exRowLines
	With .Columns.Add("Padding-Left")
		.Def(EXGRIDLib.DefColumnEnum.exCellHasCheckBox) = True
		.Def(EXGRIDLib.DefColumnEnum.exCellPaddingLeft) = 18
	End With
	.Columns.Add("No-Padding").Def(EXGRIDLib.DefColumnEnum.exCellHasCheckBox) = True
	.Columns.Add("Empty").Position = 0
	With .Items
		.CellValue(.AddItem("Item A.1"),1) = "Item A.2"
		.CellValue(.AddItem("Item B.1"),1) = "Item B.2"
		.CellValue(.AddItem("Item C.1"),1) = "Item C.2"
	End With
	.EndUpdate()
End With

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(0) = True
	End With
	.EndUpdate()
	.DefaultItemHeight = 12
	.Items.ItemHeight(0) = 12
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		Debug.Print( "Locked:" )
		Debug.Print( .Items.IsItemLocked(e.item) )
		With .Columns.Item(e.colIndex)
			.Filter = e.newValue
			.FilterType = EXGRIDLib.FilterTypeEnum.exPattern
		End With
		.ApplyFilter()
	End With
End Sub

' MouseUp event - Occurs when the user releases a mouse button.
Private Sub AxGrid1_MouseUpEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_MouseUpEvent) Handles AxGrid1.MouseUpEvent
	With AxGrid1
		.Edit(.Items.LockedItem(EXGRIDLib.VAlignmentEnum.exTop,0))
	End With
End Sub

Dim h,rs
With AxGrid1
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	.ContinueColumnScroll = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	With .Items
		.LockedItemCount(EXGRIDLib.VAlignmentEnum.exTop) = 2
		h = .LockedItem(EXGRIDLib.VAlignmentEnum.exTop,0)
		.CellEditor(h,0).EditType = EXGRIDLib.EditTypeEnum.EditType
		h = .LockedItem(EXGRIDLib.VAlignmentEnum.exTop,1)
		.ItemHeight(h) = 4
		.ItemDivider(h) = 0
		.SelectableItem(h) = False
	End With
End With

' Event event - Notifies the application once the control fires an event.
Private Sub AxGrid1_Event(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_EventEvent) Handles AxGrid1.Event
	With AxGrid1
		Debug.Print( .get_EventParam(-2) )
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exRowLines
	.DefaultItemHeight = 36
	With .Columns
		With .Add("Column1")
			.Visible = False
			.Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
		End With
		With .Add("Column2")
			.Visible = False
			.Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
		End With
		.Add("Column3").Visible = False
		With .Add("FormatLevel")
			.FormatLevel = "(0/1),2"
			.Def(EXGRIDLib.DefColumnEnum.exCellFormatLevel) = .FormatLevel
		End With
	End With
	With .Items
		h = .AddItem("Cell 1.1")
		.CellValue(h,1) = "Cell 1.2"
		.CellValue(h,2) = "Cell 1.3"
		h = .AddItem("Cell 2.1")
		.CellValue(h,1) = "Cell 2.2"
		.CellValue(h,2) = "Cell 2.3"
	End With
	.EndUpdate()
End With

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.AutoDrag = EXGRIDLib.AutoDragEnum.exAutoDragScroll
	.EndUpdate()
End With

Dim h,h1,h2,h3
With AxGrid1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_HTMLPicture("p1","c:\exontrol\images\card.png")
	.set_HTMLPicture("p2","c:\exontrol\images\sun.png")
	.AutoDrag = EXGRIDLib.AutoDragEnum.exAutoDragCopySnapShot
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exNoLinesAtRoot
	.HasLines = EXGRIDLib.HierarchyLineEnum.exThinLine
	.ShowFocusRect = False
	.DefaultItemHeight = 26
	.Columns.Add("Task")
	With .Items
		h = .AddItem("<img>p1:32</img>Group 1")
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exHTML
		.ItemDivider(h) = 0
		.ItemBold(h) = True
		h1 = .InsertItem(h,Nothing,"Task 1")
		h2 = .InsertItem(h,Nothing,"Task 2")
		h3 = .InsertItem(h,Nothing,"Task 3")
		h = .AddItem("<img>p2:32</img>Group 2")
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exHTML
		.ItemBold(h) = True
		.ItemDivider(h) = 0
		h1 = .InsertItem(h,Nothing,"Task")
		.ExpandItem(0) = True
	End With
	.EndUpdate()
End With

Dim h,rs,var_HTMLPicture
With AxGrid1
	.BeginUpdate()
	.set_HTMLPicture("p1","gCJKBOI4NBQaBQAhQNJJIIhShQAIERFQIA0RAYGLriiIEM5BJpBiIARYlMBNhQPLhJIhBKhoQLlTTLV4la5VYx/fZVOoee7de62drYdI4YIWcIteIQEbEEAzCghEwIR" & _
"IZKSmJD8EIZMzARgZKYmEAmDISYgEAISIJKdg4JzSOK7bp9b73HiqezeNYxLD7Th7N67dpmQSQIZJUpzVRqT46PY9Xy1yL2Qz/c6HXbzHoAKYgWrzC7tZDtLgBOpzOaj" & _
"QApWDXZwOdABb6eHa+fCHMTCB7AMo7S6AIxMcADcAIfHEe6AQ7/G7zfhfHqeAb/AJ8B6TfITMAVGLrd4Db78aY/fydH77axfPjjS5fP7tcLMY6EOYed4dbyHcwHCoHfA" & _
"ICCApOHEDgcA+OAnACAJgBya5jAoLh5hCc4OGcQ47GeQIBneNoGHaTI5kAKxOHuHAzjGXp5mwAZgnyNB/nCPh9g+ABinGYA1kmGYAAqThjgGQRwHiThPC8Vhfnma5/ng" & _
"XZvn8ew7keQBfmOUAYCIBj7ngbY/nqS4/nkDYzieXwLn+dp+j+EpiE8CAAEKNwZFOTZ3FCOpgHyRQHkCcAJmUDRzgEHwhAYHoRAGHxADuCAxAeDxOAcHA3jmRw4guaoa" & _
"mcbZMAwM4EDWTkNgGqQqHYPJEDmKhrDwB4QmcKAsgkcQGGQHBLiYfBGjcCESFATIID0KgDjgBJ3hGVQVk4JZqHcbpklef58g+fwFScd09j+AwnECWY0FeEIBFmdIyAsZ" & _
"4fHyEIRB6Ch4F8UZLDWdQ5CAAheEOTAxGmWgDhqYIaEGO4AgiAYNm8RhwACKo4HaCgviCHptB4Uo9ACAQlFsG5rEINAFh4WpxAQRAqE4QAlGARJGjmLw2EYfAdk8DIom" & _
"YGJKjISY5AiChKGYIg/EMUg7iEGZ7B8GABn4Do0jYWRVASMgiGoLwTHMdJKEkaI9CaZwej6H85mcCAGlwBQfFoH4bFyJgEAOdRBBCEoSC4ZpUAOOpwBURBbieeYzEeKw" & _
"IAOJQAFSVABp6U5Kg+PhvkGex8HAOJnE2ZgPF4WY1kQHALiic54lcYYQiAQ55g6VQbHMdZfjyF4PCYTTLkaAQGCadRIE0VImlQLQgm0EhalsNYMkgHRMDKHpiGoEYmlA" & _
"RpZDQYQMiECYzHwQhEHCKZOmOVZ+mMJYgFqIRgBYVoLCmXgHlAaoeCUYJKgcU4IneHoQiIQR5kIDBEBiGhMDoHgL4CQ/BiBeEIOILgRBaBwL8fweAZiZGaNEWoYBwjuB" & _
"SAAOoiASBECMJwG44Qih6EEDMcIRBmCyBcPQRgwwBCRECJgPQ+h0gRBCDQZYNwXjwB8FAVYvQsC8BSKYWy+BvABC8DwSobAghSAEOoFgjGKAVEeJCA4oBxDZB2PwWQCW" & _
"qgQAkCEAgfA4D2HSB0PwEwsBdCICkBoKgIjVAEFcD4gw8D0CsAEXwnQtgFBoAUPIahmiICANQRwWgjCDGKAsbwEBaCjEozkWQDhECcCiMsIAjBIiQBMAYA4DRUCMBsCk" & _
"YA+xaCFESG8P4LwBCqGqIQOgiRtASESIYOA+xmAnCoIUYo1QJhiE4BIAT+REghVkG0SwcgnCbAEJoI44QoCnFQFQCgjx0BdCSG8XIzQegFc0KgbIJgWgkDUBkOIrgEic" & _
"COKAM4HBwDnA+JkIQXg9jYBmJ1SI3w4hxDsIYNQzxnDeEUPkZwIQfAaFcE0LQmwsAtEsEYAo8BXCjCsEAAYLggDQEIOQYIsBWgeFSBkEo4A+iPBQIQGAIQ8AIBCBEPow" & _
"BDjQCkKQAAHhoiMBGFEWoggFDqEkBkIA7RcjKDwNcAYthjh9AeBAIoKhCDUDaD0YIewUAlFiFoRqrBlhVGOHoAoXw9ADH0H4cA2RZieFmAsZAQwnitHgPoS4RhfDyEqH" & _
"MaQcAhiaHoAQa4gwDCzCEB4GISgIgACeM0DIHwQi0AZAkOIGgoCfFQncQ4ZhcgqHYB8HwagsCPGaOoZwAhQATHGAwKgcAAiVGMjsSIihRBcFeK4CILQ7hjGAMsCoUBSg" & _
"iEANMYg1RiiCAoKAd45wuCeDMK4VwYAbA3AQDgIwchDCUD2EIdAqA8gkCuAsSgXQZCcFeFcM4jAxhPHYOYZgdxHChAwCwJQhQ4hMB4H8SwKAKgeA4MMfwQQRV9qGPcGw" & _
"UQDjOBOGoDwUA9BWBuJ8CEIxlh7G+MgKgxRciEEkHERo9hUBWWIJURgqhRA4CoEsJYjxXhQAAKKoY8R6DjGYLMaYjgMAgBKKgAQwQ7jcBYGAP4Fx9TnE8MMOgAhDiHFg" & _
"FgYAcAFA7F2DATYdxGCjCCGcWIgBzinAWI4R4MxZh5FEMgEIVwrgzCUPESgIhCCYCwP4CgPg/DiASDEQIwhnBuBIMYIQ6g9X2D2GYOYmxTD3AcB8CQ3hbh4FaGoHI3gk" & _
"j7HIE4awEAiAtAaCkXwxQSBAH6CsEAgBhi5BSMscoihug5HxmgLgZQFhYAqKYGIMRPgvCwCwFgqh9gwFOOQAoKg4D8pm2UOIeQOAAHwOgEYWBXA7BcC4I4tBHDgBlkoQ" & _
"95x7hJFaN4OgwRbgAHWPEYIcw6gFFqEYUwUxnhsB8DITYGQciaHeL0bIKBZADAoG0CgFxWioDuGYNolQLAEAWkEagowVCs2SFAeIWBzD7A5NwC4kAuB4DgAQWYqRuj7G" & _
"SAoQwDCtgZH0OQCYGBjgOAiDgbAzxmBmDgHzjQQBvh3k+CwS4PR1jRHEMcNgAhLgXGMCsPgGAsguGeBkQ4cxTDzCGKYWYfQpDwCoAoRQZwzguA4B4BrVhsA7HhycDIpQ" & _
"jhrDCHkeoiR4gLDQIQYIXAtMfD6EAdQaBrMBEiLEJIFAoAdCiBEKgow8jNHOCqwgrhMi+A2PEMIThWiZFcIMaoCBIhEGSJkTgOwhCAFGAcBIRxvCmBqIcLIvwrC4FyIE" & _
"dYBRqDaEiEcRAYRBi/GcFIc4OBJDLCmNYVYGwzdGBMNMDIqgYC2DyO8dwQQLgHCWLsJwEB4hIHGNkVwWRvreAiI0LQKwRDZGwKAVgUQGD7AcEEUgIAnBQFEI0f4XAEO6" & _
"GsHADoaBSDkEKE0DQwwoCuBMMwQYBx4DwAIEoDwjQOBYhUgNhGAGBwgWB9gCADhXBZhkBfgtAAgFApBNhKABAcuohnAPhphug6B2B3BehghyAghRArAWBgAjBghDhPAp" & _
"AZF1DsB4hjAlBUBFBEhThiheArAFhVBtB1BIhuBiAHgUALBMgXhXg/hGAqAggbAuB+hZgKgQHdBSgTAxA2A1AfBDhigRBAgyBzApgFhAAjh9goAlhvBSBsArACsBgshA" & _
"BBhNgVgphqBvBAg8higxA0hPhoghhkgNgcBaBtBRhhBdBHB2B2AeBQgFgRhxh4ADAYgsgtBWBahchdBgB6h8gjgTBMABgIgghqh0AXAcAJhtBEAQAVBigZBMh5hUAKBN" & _
"guAKAph+BVgQBYBglUBUgKgbAOhZgEgOAOhghygagOAOAgAlARhRA5hOByAWh6g6p/gugChjAAhrABhWBDBHA6hDByBtgaBeg8hpATBVvSg2vRgDhSAHJxvQA+AhB4A5" & _
"hJB3h0gzgjhUAEBagFAnhPg/g2BUhIqJhchGA3hUgJBmh8BIAmAAgnB4BnBxhegjgMgtAyhsgphVheAdADA+O2hAhzB4AQBxA+AzAsABhpBYgBATBuhOheB1BshTBNBZ" & _
"g5gsBWAWAnBWALBYBUAOwAh0gTARhoB4segWBrg4A/Awhgh5h6Bch4hFhRghgFhSAjgjhwAshYBcAfAhh1AgAkAeg3geh5A8G2BSh6gHAAAVBnAghGBQBdA3A+gEAggM" & _
"gfhqgth4BQlMBXgGBBA3BJgxhZg0g7BVhEBhB/A3AxBahlBWP0g7BMh0h9BiBoh/AkBvhMh4AqnwABhjAWh0hEBUgCgjh2gUA1gcAdBAhOgOhMAmBggZh5BjA1gOgtBQ" & _
"h3h2hWBCg2gLgpAVsNBWhnAUBZhAhfBvgRhCAwASh6hbAUgyBihJBEBwA6gmh4BggBBSBBAygABghEgIgWAaBQB3BKgFAYBRAQAFBggig0BGgFAIg5hYhKBwB5BlAYBe" & _
"gPAwAuA6h2B3hhhnA+ASBiBGA5g4BYADgYhGBUBBhVhNhcgispBFA4A/hnhyAFhnAEBKH9hjh6gNBnAnAwgfB1gMhjhAh0hmBsAwBWhQAsBygshDAChYhNhZguB6AuES" & _
"BeB+gXB+ByABg3gugVgeAvg9g7hwBBgPh3z/AmATBYA/gsBshthngrBlBZhiBCgugaBeAFABBnA2h4hWAtB3BcBnBWghAxA1g/BCACBFgahKAFA+hrgIimgXAIhhBkBg" & _
"hAhihCwVArhshvA4h+AwASAChAAHAqhVgVoTB5B1gIoOAxBBBphzgegbgFgcAeB2BggMgWA1BDBWB4BxgHgLAmMrBrB1gHAUgdgeA9BdgJEbhDgfhNAQhah5B7AXhWhI" & _
"hdByAjh3gCgpB2Acg+hvB5hzBLhLhSBnB0BdhfBSBfqRgNhVAFAQhMB1hrhNAEhQhY1SB0ANAxgxA7gDg7A7gwBWAMg+BRB1hmBxApAjhlhtg6ADBAhdA8g8hZBpArBG" & _
"ANBFhTA2g3hQhLBIhshWBxhggQgmA9g8B/BeBxzzh/AXh8JCgDAqAdglAMg8B+AJhMBnBwB0BgggAPAjhrBFgThqA4gigPADgiAVASudB6gJBUhAgtAwB3h4BFFxhwBh" & _
"h7hQhyAhBnAlh6ASgOh/B9gFBIBrA8g6hbh2hWgrBmgpA1BjB9gkAmAWgAALBMA7g4A6AABnA6hLACglBjBChCAVBth9Atg1BTB3gGhZhhg0BrhvBNhJBSBvAzBTBjgn" & _
"hwBTgPhhBig8hjsJBIgRBKhPBJAjgXAXoYgPAHAHgABrhRhoB8U0B5BzBGBqhxBFAVAYBGAVg5BUhqAtAMhrgFhzAdgbhSAqA8B7AKAlAvB4gJANB4AxALAoAiVhpxBk" & _
"hqBZARBiAUgZBXBbAvKRARAzhFgGg9hdhMhshmAMARAMAIh5BnBeAgA6AyAdAMhUi4BeBPhsBMqrgzhJh3BdAchRARhXBYhhAYg7guAuhGAEBzAchLgrhYBeAMosB0AU" & _
"B8hNBygmhnquAbgbgOgHAVhaA/B6AvBvgwBthRhdBwB9h/g3A4BEhohdBgh3h/gwA3BHge0eg4B6BwBLBtg+BHABAOBagzApBNApBOh6gBghB5gBAI4QgLhTAEBMhBgu" & _
"gRgkhnAihOBlgtglhLBNBEg0hFBzBIvEhbhvBYBkB3gugzg+BehNBTg8A3hrhRBjAGhvA/BqBwhuBkBigygjgkAOgugbg5A+gGhpgkhnhkghh1gvAdAzhWhdBLBWAoAM" & _
"h4BYhbg3AqAZBHhBBjhiB/ACBqgPBjhADNAfh+hoBdAtgpAfgmhCh3gghgANBIg2BegABQAaAXg0AHBBBLAxAYM0AiBXg6gyhSgWANhLgzglhRAoBMB6ARgpAWhWg3Bt" & _
"BrR9hAAqg8gLAPtxAZhlgZAjhDgRgHgn1PgEBhgxBiB9hHAHgfgAAI09A1BYhZqNAwAYAHBWklgGBsgIBYhizSB4BMA4g8BjBcLHXkhCjqAIg1AsgwPRhWhsBshcBJBq" & _
"gEhMhhhBgUg8gsA2gCgHAQhBYYAzBaBAgnBkgAARgRZShpgLANA3BxgChmgVhyBnAmBBADgaBJmrh0iUB+hwB+gzB+h2gyA9hRhigdAIA+BHhkAkgtnMgAhehShtAHZz" & _
"BRgUidgqNYrtR1hThggtAEAfAohiBCBOA6AjA4gyhZgHA4ATg3BsB6g2hytDhPQwhjD5gLAVp+BDBsATgppBBkgMhzgdoOP+YahHB0BBW7gHBHAdBDB6hkB4gEhqAdB4" & _
"ByBRhPBbuqBLBrACAPB/g2BwBmhbhPBQgWg2h/B2BhgJhvA+B6AGBzhwB+AGOkAJhSB6B0All2BUgaB0BtAtBEgkBjAbgbAUBJBbh7rOgyh9h2A7B2A+gzhtACAmBaZ1" & _
"Bqh6BWgWgmgrAMvbBdgLALgjAOA0gdsEBfhlgLAhhrA1hcBcBYAzhaggAUgoAjBxgQhpBVBoBJBsgXBzBqI4gLgTgGB1gJgHBHgNApg+gkgLA8BQgjhqAaBqBpBQA1gu" & _
"h5gWg6BNB/hEhvArhkBlhdBWgbBDA9gxgbAChuAjAcA2hSh6ATBWgkglhPhNgKAEhOgug1hxB0AEA3BXBmhRQRAZBrgBApBPg2g8hCgaByhUE8BUhKhwBHvMhKhwhrAP" & _
"A9h4g8A0gYhaBMhqAzhvA/h4hwhlgDA/hrBQh7g1gDBcAug4AogAhSAhgbh6hiAjAQg1BXB+h9B1gjBKBdACBageBxh0hpgJgOATgUATBwBJhPhPhwAeh6ApzQgnA8B2" & _
"glgegVBhgrAgg9AlgChbgZhHAXhvBsAuBeA2ArhiA7BoBFgHgvgZBsBIgvBVAMA1gxgAhtA2hfg3geBkAlB1BYrbhbgKhzBbBUhEpeMhgOhnA+hGg7hvBQhWgwBGhSB3" & _
"A1heB5h3AahUhvhahtBvgGhQAOgRBhhbAtg6gDgBA2gEhjBtTmA2gMgshvOYB8h4B8BVgLAig+g1AGhChtheBdgIh0B3AZgYB5B5gUgCg8BBhghFglBdAHhLg8ccBagh" & _
"gShvB0hwAhBWgxglhlgNgkBSArA612tcg6gZhrBLUohIgZBQZVAWFNh1h/BVhyBNhNgGAKA2BTgkAAhtgQhZBsgdB5BPhvh8hNhfh9h9A3g+h5gNhfhdAdB9B+h0Ahg2" & _
"BmgiBYhGgGhYB2hUh8gIAthHhXA2hEB4BbB0E5haBwAOBvAjgxgvBtgTBFhjg8hHhqA5A/gmA2glhxg2gJhDAWhKhsg5BLgChrhth9n6giAVgwhhhnhOg0hlBuh8h3O1" & _
"g6h5gdg5gPhzgOhZAvBKg/h9EuB+AXhwAEg4TXBIhUgHAtgTA/AOg8AJh8ARhwBrhsAaABA/hYhHBFAEh/gXhgA9pRk8BjA8g7hAgxg2A3hoAIhbAsg1BFAUhxBFhfAo" & _
"hVAAhFAAhZh+AphwAYhbAzg0BsXwBcBugUhbBhh2g7Acgt5fhxAPhBAwg/AEguW/hgAkBBhgBzA0Bdg3faBwBFg3h+hmhYh4hBfSgxg5h1A/gBheADASgcAKg/gJAjCR" & _
"gkgignAiBXAhAwBBCAg==")
	.set_HTMLPicture("p2","gCJKBOI4NBQaBQAhQNJJIIhShQAFUREQIA0RFKQJY2iIJOBILJzhQOYkjYgBSorBwbhQKJ5pIZDKBQNBvOhvOc1OAgJMxEBwORvMxpNhlhR4bSdKZnKhTdIWHr3bz0I" & _
"RLRCAShLN5SCoIEBSISLQAUSImFQhBIQJSIEKhbIVKLBCJFIoEDbIUCIAaORyARlwFgMRQKbAHcghUSOQajRCKZT7cJ7UZray8e7mZr+WrXHznVjzTqzZ4HYAIBiWJAz" & _
"KI1QAMVJCDwRcCDY7EYzhcguICBBQkOAACAIWZkEJzfojAIAfB+Hg8FYiYAHXwAAJ4aYLBAAYBNTbAGAcQ7/B7qISZLgBQCEALAOiRHBLBFjABAPSOISm+ZG9CdTAmKY" & _
"AFAAgADAZYxjEcYACgFsBhOP5zGmABAE6fBMj25ItkoEIKgCUBIgAEAJjKRAiAANAdgAVhnisRQigALAYAACgzCWYgcgAbEFhgJIrjMJAAFgW7tGcCAFlkADTAAGAokQ" & _
"QoUgAAg9wGZARhGPAAEITMYiMeQrh4eIVlcCBzomAA8EyWQeFyEgciKQItgQFo4gOK4rhcDwUGcJILhWCgbDCAQwk0IAXGEPJMgyGRAhoB5wHmZiFQ6CrZEGeZ+jwZwH" & _
"FcZxnBsRxbAcL4WnUX4DH+EQxQOfxymeVY4CAhRwjoPxon8FgXlmDRAB2AxADafxRBKdwCDQLwFlAOp7kWMxZAeIBawAdJtCueY4OW5oilCSBcmybJynIchsCUYghC2M" & _
"JlCuPp/DOYQvmAK5+jYfLmH4e56nAXxxBIQIZC6QIjgIfBwGEZh6CYUoOGeSQEkIMRuHMR4jn4W4Fn+fgOmmERiCSMRciwFQKHGKIJDiRwiE0Rh5hkUoRESIRJBSYoSm" & _
"kf4yHEb4WH2AYfG+GsfjUHwAj2SIWlQLoxgGewlhOCAsDoYBxHuhR5F2N5gmoFAEAGQA0EGcJnjuf53h+fojlAEsIjMJJJDihQvCIEgXCoZRZh+Y7sgAIhQECFRYCCDZ" & _
"6GCDAWGAAwOGCApuGCBZ+DAGxCCEEhiGEIQICEBQyEADg5DAFJWEEIQUEMZpYA6FQwBeaggA6GhgCiNBDEmOAHUIKpcAcHo4AefQwgQTxghQXhAgSAggmQBAJjCEJtEQ" & _
"AIxEULARkcBALkyQp8BCYIkAICRFhIEBkkQCgohEJZIhqJAYikRQqBAKokA6eQejkAQckOLgjF0SIdmQAAZEEPwQwvAjgxEoIEWQUQejUAYLUIYuRUA3A0IQIwogFjQD" & _
"IHQGImhHgWFAJsaAchaAaB6IwGwoRzjQFWGgB42hHg+CGMcGAwB0AYAODMYgbAYAuGMMMIQsQcAsASJMMYyxYgiFYAwVYxgNCwCsKwAYuxEj1DGM8WId3tiBCKMABINg" & _
"CB3CECAMIHgghICwEwLAThsBIFQCADgJAaARG0AkG4CQBiECiMIE4IhJioCWLQEwugIj5GIBgMQMgYiHCwEgFgIxrASEeBMF4EA9iICGMQG4JAJCJCGDIE4uRIACCSLE" & _
"UgVBpASGkEYaQbgpAjHSCwVImwaBIA0CMSYyRtBkDWLIA4ORKAsBACsZAhRyCdHIMMcgMxyAbMOPILYChOhiCAHEUg+ApjiBQFIZQaglAZHKBAcoNBygGDKJgGQQQqij" & _
"E0FIboqBQhUAiDUR4WghCtFCLYKQrwoiHFQBMGgdRNA5GaIMCwSQlilFaKISo0wNBoAuGge4aRXjoDpIAbolQPBOEuNAK40hljpCOOgS46ABj0DuAwBohgKm0EQGcFAG" & _
"RNw0AwGcDIdwMCvEwEwUwGRpiLAyMcKgMAbgxHWJgc4mQHiZDeFVjwtgVB8AqJEZQChKhKEqCYSoGwVAvCoKkVQphVDeFUAsKo8wqjLCoI8VIXgph9FcEYKoMwpjjFSA" & _
"kaglhVhVFUJ0KA6wpgbKWKkHYqBDiqDOKgN4VAfikD8FkfoiQDBZGGEwYYTwhikCiKAWIXxxi8GMCABYYwMizDwCwEIawGirEMHUQINRiAmFiM0bIfA7AqF2JgfoHRdi" & _
"LB6KoVIoQchDBmEoGYVxZhSHmJQMwPwDjjEwHEfAnA6BOASOcFApxLjzD8IobwFB3gpHECkDYpgaBMFyDEMoXA1iqEsJcSwWBVhIFWFEVYRx1i9BsK4dopxOimF6EUXY" & _
"WR9iBAcEEY4SgThcBOEcM4jxnAFE6OcKY2QpjdFOAoU4Fgmg9B0PUVwLhVBrFKBsUIuwiB3F+G4U47hMCeF8F4QAngmBvFON4PIvRzj6A4H0F4/QqD9DaPoU49QjgMCw" & _
"AYWYDASAGG2AwZwGAeDFBqHEN4PAOgvGONseIUQhhdGGEAIYpQwiVDCJccIhBIi5GiDwUY1QjCNCMA8RgaRjBcHGCQcYbRjZ4FGCYAwJgQgmCWE0dQTR3TpCaLkUwKRT" & _
"A7CZowY4zRmDNFEM0awmQaibB6DEa4Mhzib06NcTY3xbhgC0HgLQLBbCoFsLgMoSRZDkC0KYLI7hbC8DcIULQOQsilCwFULQXRZhGFaJ0VoJRrC7FaLsU4ERTi5CcJMJ" & _
"wqxPDWDOMMWA8RbDJFsKkW4GRYDlGxkoVwtg2i2D6GEM4YgLhnFuMUVwwx3CTF6JMPoug+iNH6D0A4DRDjZAcKsDoWgOh+DmLQOQFAdBWB0N4TQzhODuB+H0Yo9BLDpB" & _
"eGcLAzwIDPGwDMcYtgJjLBSMQNJShNjTwVusXIc1KCIEWIkJYghlguEuD4FwmwNjGG6MgXo5AlB0HqHELo4Q9DSHqJ0TYsxNjCHaKgbYrx3A2HcGkdwhxuCfGYDQT4KR" & _
"PBZBmHMaAwxkBDHAFEco0QfgLE+JUGAaxvisD9ZQJ4gQzi1HOCMF4YwXiRCuK0a6QBSh3FUPcMI7wLg+HsD4OQnxxg+HGDwG43gZDeCyF8ZgNxgC3GQLcZYTxhhvE8F8" & _
"Qo3whh/BGzQf4eh/jRAAKcQAJQAhnAGIkQIQU3ACH2PgPQfAQi/EcD8HQ2wyj2FkNkdoQRGCgFyEECoQRHiCFaIIcowRWghDQMgdgkPqj3HOJgZwkRnBpAcIUKAfh0DW" & _
"GgAcMI5gwiLGGH4BgJxCiHEKFcQwPxHBwEQFgDQ0QYhLgag7hohuAhg5hvgiB9AiBLAiBvBNgzgYgngchXgWglAagVAfBVAXA1AeBtAbhdAaBdAfhjAXAzAshmBqgsBO" & _
"gsAkg2AlgOAcgXAVBXAbA3A2BfBvh+B2h5hDhxBOhxAFhxg9gLhMAXhkAug4A8hQhnBhB6BCsLhUgXAJAWAdBLAgAmBEAnAcBKB4AggIAVBUALBGASh5AJg7gShHAFA8" & _
"hhAOhhAzgRAXhogbBohEBsAhguAVKLh5AkAVAmg9BJB2BIheAag8gSBigZhSgWByhchCAThUhIBeAmAGgmBuhNgdBPALBNA7AQA2gZMNBegYhBhJBIhIA4ghBVAQgmhJ" & _
"hbAzh1AzhzAzA7BlhWAyhChZB/Big3BFhbgXgPBKgDhkg1hZhIBWACgsgWgFBbD7h0AqAtAUBrgVADhZAzgykeBfhmhEhlAcq7BPAVhmh2hmBZhlBthIAbhOB3hPh/h2" & _
"gJBhAJBwhJBbBShDAlgrgWgOgsBzBehWA1Ack0A4g8htgFBxgKgCgVhDArADBWAeBcBFKmA2hqgnhVh2grhLhXA/BegTA9Amg1hAgvBghlBBBghagAg1h1qxAFByhCg+" & _
"h1huBrh2gugngsAXgshvhagwh9BDBOgNgfAKhEhFBXAKBtgLhLgKg/hsAUBuA8BygNhDg3hlBfhMhuBKBaBUhVhiBcgyBngzBpAzB0hzBvAWhPAtgHBLBVBLhzBLgHA3" & _
"AGhshtBaAGhvgrBaB2h6h7AihtgXhLhmgUBthdhBhbIGhRhfyFBeAyhThkhnBmgdgfgqJRh6AqB9AqOpBpBuyahrh8A3Boh3ANg9heB7AaB2BqhtgtjLB+gfBkhfBtgq" & _
"gAgqgmhqgzBqgyh9gkh9hZh7gfhXBEhVB0h8BLB9g2guhWgnA2g4h2hjgBhpABh+gDgRgHBbBrhchqBqgOhpAegqApBHhrAVh1gjgHBjgPhfB/BOh3g7gWgGgbAGgqhG" & _
"hOBjBxARg4AiA8hyB0h7gEhvh7gPAGgdBtA7BGA9hWBwgDhpgPg7AOgzsqg1AhBNB5BNAjBNgphNB9gtgxAthdAnhmAfBohrB1BvA9B+AjhtgPgHhOAaAeAsg8glB5gq" & _
"Bkg0htB0hBBphJgzh5BnhGBOhKhOg+g/AXB8huAwBthRBbA9hzgxhnBvg1AHg3h3hdAIA6BwhpAih/hFhzgdheAdhnAuB5BcA6B5BZBthygJgrhcArhNBXgdAvg2h1A6" & _
"B1AeB/BJhpgnhjhdhOBdhNBXBcr0Bch3A9Behag9gzB7h0gNhPAbhnBuh6Beg8h4gLB/hrBqhPAcgehuheh5g9A3h7hil6hvgLBug/A5ATh+hnBlhdhsg7gTh3BWheAn" & _
"heAvh6AgPjhsghhuhDhqgfgth/BuBsB3huA/g1BgA7hQB5wBgjh7gDBChBhnh/BIh6hHgHghgChHhMhHhlhDKTh1hPAcAfAcgchxAfg5B+h0h+BTghhnysATBPALlfh/" & _
"BlhXALgLAXg/B8Bqh1hrhnBohMBohQhLh5BLhJhfg2g+BSh+h1BgB1gMhXhthjBhBjAPBfBkg8AZgYgvB6ArB9h2hgg7huA7gOh3hRhvgHgnhyA+AQA/gUB/g0B8hYh6" & _
"gphoBTh9hJgMhJhJh/gCABhMB5h+AxgZgWhtiIgCAzgggmggiFBYhHA+B9gohJiIgQAxgkApAmiFA9GzkIhBiFB8h/iFBAB0iFA6kYAAB1AwCFAdBMCFALg3hJAvhigj" & _
"CFAFh9AkgiAggqCkBWBMAshHguhjg4hjh/15Bsh3AZB7hnAGBDghg1AiBMgtCQBZASgtycBigkBIALh9gSg3gghfAgAfAkhfAkAIByASggBADqBBAWAgB5AIACBEAxAl" & _
"hbAygWhqM8hDBRAcAZhOB6g3Azh0hWh5AYKaBpAItWg4gBhCg9hABBhth+h1h/quMOgxAzB+BygvjjhfBlAwAIBWA6AUA6gFhUAfBFBzALAKg6AEBGAvAIgzB5AVhnAy" & _
"AngChRhuBag1hnhUh029AQh6hKxyhoh9g8BzgOh4A1grgZguB/hnANh8Bbg/g/ANgigjAIAihHBTBKhlhMgEh1BwAmhUBqAAASAPBWh7hxhfh8BtgjhngFBvgwAYBEBK" & _
"BGAAATi5ABA2gWhshEhSAlBMg6gfBChOh7g3puANoXhJgYB2ArgMAHHyBggGAxATA+BZh4haggFDhBBEACAIh6hzA9gtA0BQhZJWhxh9gbhMhMhBhkBIBjhSBthzBgg7" & _
"BogvgLhbAch2g1BIgFAtBvhYBaA+gMBhAwBVAxhwAQAkBNASBEBnh7AGBABMggAiB/g3goAlAIAIBBEKBxAqAzBNBSA6Apg9h2AKBXgFBIhlguBzgUhqBJBlgogmBXAU" & _
"hCgahPB9A9AgAehlA+rahPh2APh5hkg4gvg+gYBcgbA2hxgjgigRB1gqgpALBWg3BaAQAxASArAZGMgEAiglh5BXgEg9BbAigJAaBWAPhIBmgShKgqgUhqg6AfhFhnB1" & _
"gZAWA6A2AyBPA9BigQBFgjhehUBegRgbgXhahmhWgaBYgHgihcgJAugJheAFhIB5h6AuA9BLhqhXAZwQgLB7h8hMgpgqhrh9BlA4ANAJg6g4hSgYB8WMhYBDBfBbBRBz" & _
"h/gIBGACBOglg6h4h0BrhSh1gvgFhCBbBpA/BPBsglAKhfBMgygRBpAVA8BfAMhBgkA2grhNgbBrANhJAtgVhzBVMVhPAdAxgahxgwA5AdAYBqgoA9gpBnB9gCh3hvBP" & _
"BWg2BGh6BfBbtKBlBAAMh5kBBiB0hYhSg/gdgUAAgcAHgegogUALAvAGgyBb3VhVBehNhxg7A2gehyAcgugmBYgPAYBmg9hujAgxgtAuAig9o/BzhZgwhDAwSBhEg0hL" & _
"BhAeA3BihvB4AQAChahWgVgwhqhlAUAmTbB9yUBmhGgFgUh9BEg5hehXBqhrg+APBvArACAoBqAehnh+BqgKBSg5gxgTAogMBTg9xxAIABhzBygYAqg6AZAUAzBdhShn" & _
"h6AoBCh7BSkZAR0+h9hqhFg9B9U+Agg3heg/g6gmhMBeABAgBEBvAwgfBPh+ByA4A/h7iagIgfgmArBvAegcA4B/g0h9heh1hdBhBkhhhRg3A3A9gVhpF0hXhxhJg9S8" & _
"Bxg1hDg9hvA8OKhbhBBpBxhYAjAihkgWBSBFhogGBiA6AkBfBhhqAKA3ByAHBfANsEq8BThvhchaBcB+hpgVgthx6ZBigf2shHhghhG8AzgZhSBEAoh6BcBuBnBjhFgD" & _
"h7g/heB5h0hOgPhuBWB2gFBXg+h3hWhhhOh2hPhMh/BzA8BKgfA/AjB8hLALhiglg7gRIpBfhbhQBTB4gWBCB8AlBFBBAghiASBUAaB5hOBBhbgmgKAMBEh9AsglBJhv" & _
"AkhGBdAcBfB/hJg3hkhugfg/B4hDhXhyBzBhAyniB4BVADBEgHASTegmgIhEgRAUAHh0Augshjhlh1gyhbA7A1h9gnhvhfB4gvhVhFhFhrhTA1g7B3htgTAzADgJh4hm" & _
"BngJgJA2APA6gyg9BaBohLhvADhxBThA8aBIASgmhSgnAugbA3glAXASgqAwhhgYBaA2hTBthsg5g9A4h4BjAqg5h/gnhXB/h4AahFhVBHgQBzggBTAQhGABBIgeApgK" & _
"AAAcAgg5AABDhABsA7AAABL7g3hwAjhyA/h3h+hBh2gwg4AXh/glgWh5A2g2huBAAKg8hiBDB3APArhagIgFhGB8gQgMBxAlgghEgABIgQA0gMA7h5huBcAFgkhKhehw" & _
"BBAGhYh2hCg9BfA/A+g4hxhTsdg0BlhRAHhSA2AAhZALBSAMhIA0g8h+BOg9goABAcBBAqAABUgAB7APAwhogxB2h9AIArhdhnhXhfhZg7h4BIhuAUBbeWgRC9gegmAN" & _
"B6hEhcBpgDBVeQgnhTBqA5goBYgaARASAQhagogJh6hJBFg+BoBWBkB+hmhYgeA+hqhjh9A5BWA3h/BwBChzgugvhWgzAEAsgBgohshZgMgUABARAACNAoAfABgigBCI" & _
"BCADhKADgkhHgaB70tBqgwPDBPh/Boh2hJhxBWhZdohACytSkQAwp26ISCyh0y3IEzO/jeKhUzzASQUjhs510AkmqTSVF24EeTEwf32+XCvWu+0uamI3ECcgEJE+QUkf" & _
"gY8hiRUilnezxA2R0JEcUGS4Xk2mc+Fmhy230eeViTSsZAULFCc2+NRiSgiCRkPFCqDw7CuAigRGSREgbkkoWQEGkzQWnheCj+eGgH3qTwo5RmwCYQBsAmoAW4Ai4AzS" & _
"aW4LFaBSkc3sDhawA6iA4yCIJB8wnUyDCSEOLyOqWuwCwAyK2x0n1iNgyOAQRCaX0snkIEBItTAqwgchSyAMhsIGlIw0afmqgRKA34KUgrgGMAAIkA/CYVVCAUky1enw" & _
"A9jOwmEAXQADMEA+gmqHlQD3o82S5jS11YhyM3hqujLFwYgjPIURkHEGhTAQLwnH8AiUM8jAAN8CQ0BMLSELcKhrKsTD4DEcy6FgaQ3NImgBCEwA8AM3ANJAfgFFAlwB" & _
"MoABSAAyRHB4ChaK4IxyIASwgM0wDxFMIDeAUKxAGYQCuOo0goLUYT7IMCxkHoiwhGUjgFDkKQ2FgtTdBcBgTAMSAMCQJQSAo2RZCsXCRFEWzpNQFA+LYSjCAsEgAAsB" & _
"iEAEYDAHEHxEAoJA3AAMQAMgAAQEsLxlAAHhgA8TgTHAuAPMQOSYCscCsCERSEJQST6KYizNMkdAqHUPBhFkTgANkUhwCkBx9CEaACJACCcBwZT+MQXA4DUcCuMcpwxK" & _
"QTgzMsfibHQywBKAqDAHIDDIAIxASIghzgDQAxiAUkjlDIsAIEABCnBoCAzIAawQCIWCWCAaQBCMAQ+IUDyqJM2iQM0qihLQ1RKEgtgGKkGClAkczEEcHznDcfSUBkFA" & _
"lPslDFBomT0CoExBFskgSEoCyfHo8zaCsWA1AAcQJIIORTJAzAZBwSQwLsMwVJcCQfEgyxPK95AgO4wBwCAqiQEIixZJ0HydMo5g9G8ZgfMooA+KsUROLQrTaNE0DGBQ" & _
"XB6OoERKGABCoXIMQ1F0CDkDoLx5MYgQfHYVB9HQcjcHsYzcOYlCMAUtBdqgXSaF4TgnB4lTbGcPjqAAPjPA4BA4IIcCMFkmzhNA9x3KoqjwKUzh7KwTDhJkagFHY7j0" & _
"NARzfD0NSPJ43yHLgiwyCY0zvBAQytGU2yWDo6CYPUpifB8rDtG4TTmJssiyOAmCBFQDhQP4GCwFoZg5AACAAIcsxoD83xAAI4AIFQtzYL8IzZNsyyfDAxQHE48A9MgN" & _
"glgghFFKJkKgTAiAyHiJca4owiBgAkCkdYDg6ipE0EIGQiQnCtA6LACI6hUD5GsI0bonQvhtB8LsBQeByBACiIAJgAQ9AEFWJcWAOBBgkf2AYJACgkCEHIrQGLzRnixG" & _
"uD0X4ew4jrBkDEMYsxBjeFeJkD4shYh1EoD4BobAXglC+OINIUQ/juC2BwQoSgmi+G0DgJQhxShYDoCUT4iAwhxH4JwUgtQDg3A+F4Xw1xdh9FwDUPQYQBjeEqIAZQAQ" & _
"ogCGQEEWAjwmgZGANwAIXBBhBDAMcCADQRhNHsHEfYbhrA8EgBcf4ehaisB8O8M4JRkjpBoFMbo8QUC2A6FMGYnxoBoAQPEUgoAnimFOHMF48AYBeAkJECojRJDJDiEY" & _
"GYzRYDTEwK8bonA6DXDOO8Pw/BFg/H2J4bQ3gMC8HwBoQQrxgBcEAHQAIlgLDEA0CAQA2QBhJECOMLIfBUiYAgE8HxywvgeDsLcfoqw/g3G4NgHgcATjzEeE4I49o+jx" & _
"CECUC4Exnh1HgAgUA+hrCHEAJAL4CkaCYGAPAJIAg4BdEMBkPY9AniiA0NYNADxli8HQHcPYiw1h/HmNYPYnx+D5FWO4ToKx1hXC+AcRoxwkBqAAE4fI8haDiFmOgcwG" & _
"hpATDQHERQyR7O8D6PMUAuxKheH+PsWgsh9BPCaL0XAXxWhvCMMkawuA0h7CWNoJQpQVDEBIBASAmx/gtAuL8FAPQejmAECEGIpQXApByBMC4DhSivAuDIFgzAlCWC6G" & _
"odQ5gBhbAcC8WoxQPj+GGH8P48hgw0HcLwfI/QzivHaAwQ4lxXDBFYDwA4sgxiAAKNgJoEB1j7EwO4PwjBujbDuOMewUQ7B7FsPofY/xfPWDkNAYIthYD6FQFkUggx/B" & _
"mB+PYBQWwmAOG4MQQ46AkALGgKAf41AFD/A4JIDwVw7DOEGJoXADhrB3D8KAGGAwxDHCgCwAw6xChNDcPIbwIhvj6GyIQKwDw3jcEyLyLAeBZgYHsN4LgsxbDIEQIQeg" & _
"3g6srCeE4XovQtibAuN8FYxxhijB4B8HwCB8jgFCAkOAdQWC6CoEoGwVAahcH2NkagzQiivCuP4T4gh8xgH+DgGAExAjnGiLYIwGhNDFHCKESgXidBODuF0bgkRTD3BA" & _
"JceYbBaBqA+B4Y4zQ7inBoKkR46xiggAmGpZ4MY3h6G2FccQngKg2DUCUe4ZAvAJC6LsaAcQ3iXBmG4KoJBoj6GEB0GwnhujBEoLMAIRQJAEFgPgLQ9x9BlFWAUBIQho" & _
"gxCsOsYQBhYjhFuKsYwmRDiVCaMMZIIhOhsY4HcQYjh3gzHKLcfQQwYj0F8GoRYfhbClHkJgaITB3AEEyI4KoRBxCsHkK4YokRWDKAEKcaYtgPBfB0M0JoAx8DIDaJcQ" & _
"4vAUDBDSPIRoWwdB8G8HAMQEhqBGf0GIMYNhXC3GaKwW46hHBmA4LYZgTg2AxH8HUMQ8woBnHyIYSg7gkAoGmAkdorBkDsCcCYFINB2jsCIAUHoZBNidBoLIHQyh8jIG" & _
"MC4GoCwNB1DaKwMfLhyA2B6K0d48BKh7CeHwLwBgCAmB0OEIIKhrieCSJMaATwrj8GeHsRI3BBg2AaGYaIhwnBajQJECY6QkBCFwJwVI2A7ghYSOsOYrQmhDEyFUNogx" & _
"9DUC8J4ZY6QIhtGeC8XQcRPAgEQH8W43QeACCwFIYQfgehIA8JoZIpBTDrFaH8Cy0ApC5EuB4Tg1BQBsB6DcY42hgCWGKGgcIkhJh1GmIQSozRqhuD0DwSYvQIjiBOHs" & _
"YYlBVgOAoOMeQ/gjC/C2NAeYEQQ0pCQIkPoPhUC8HGAgY4QQMCjB0O8cwbAFB5GECnoYoh4gOCIL4NY0xOjbD3B4B1BUAmClAyAYDFDLDKDqDrB1BKD/BnAADtCOCxD1" & _
"DLZnCEAAgZAABJBFBOBECuBCBgCCEBA==")
	var_HTMLPicture = .get_HTMLPicture("aka1")
	.HeaderHeight = 24
	.DefaultItemHeight = 48
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exRowLines
	.GridLineColor = RGB(240,240,240)
	.SelBackMode = EXGRIDLib.BackModeEnum.exTransparent
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.Columns.Item(0).Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
	.Columns.Item(0).FormatColumn = "value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`"
	.Columns.Item(0).Width = 112
	.Columns.Item(1).Def(EXGRIDLib.DefColumnEnum.exCellHasCheckBox) = 1
	.Columns.Item(2).LevelKey = "1"
	.Columns.Item(3).LevelKey = "1"
	.Columns.Item(4).LevelKey = "1"
	.AutoDrag = EXGRIDLib.AutoDragEnum.exAutoDragCopyImage
	.SingleSel = False
	With .Items
		h = .ItemByIndex(1)
		.SelectItem(h) = True
		h = .ItemByIndex(2)
		.SelectItem(h) = True
		h = .ItemByIndex(3)
		.SelectItem(h) = True
		.LockedItemCount(EXGRIDLib.VAlignmentEnum.exBottom) = 1
		h = .LockedItem(EXGRIDLib.VAlignmentEnum.exBottom,0)
		.CellValue(h,1) = "<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, ..."
		.CellSingleLine(h,1) = EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap
		.CellValueFormat(h,1) = EXGRIDLib.ValueFormatEnum.exHTML
		.CellHAlignment(h,1) = EXGRIDLib.AlignmentEnum.CenterAlignment
		.ItemDivider(h) = 1
		.ItemDividerLineAlignment(h) = EXGRIDLib.DividerAlignmentEnum.DividerTop
	End With
	.EndUpdate()
End With

Dim h,rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.Columns.Item(2).LevelKey = "1"
	.Columns.Item(3).LevelKey = "1"
	.Columns.Item(4).LevelKey = "1"
	.AutoDrag = EXGRIDLib.AutoDragEnum.exAutoDragCopyText
	.SingleSel = False
	With .Items
		h = .ItemByIndex(1)
		.SelectItem(h) = True
		h = .ItemByIndex(3)
		.SelectItem(h) = True
		h = .ItemByIndex(4)
		.SelectItem(h) = True
		h = .ItemByIndex(5)
		.SelectItem(h) = True
		.LockedItemCount(EXGRIDLib.VAlignmentEnum.exBottom) = 1
		h = .LockedItem(EXGRIDLib.VAlignmentEnum.exBottom,0)
		.CellValue(h,0) = "<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, Excel, ..."
		.CellSingleLine(h,0) = EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exHTML
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.CenterAlignment
		.ItemDivider(h) = 0
		.ItemDividerLineAlignment(h) = EXGRIDLib.DividerAlignmentEnum.DividerTop
	End With
	.EndUpdate()
End With

Dim h,h1,h2,h3
With AxGrid1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.AutoDrag = EXGRIDLib.AutoDragEnum.exAutoDragPositionAny
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exNoLinesAtRoot
	.HasLines = EXGRIDLib.HierarchyLineEnum.exSolidLine
	.HasButtons = EXGRIDLib.ExpandButtonEnum.exWPlus
	.ShowFocusRect = False
	.SelBackMode = EXGRIDLib.BackModeEnum.exTransparent
	.Columns.Add("Task")
	With .Items
		h = .AddItem("Group 1")
		.ItemBold(h) = True
		.ItemDivider(h) = 0
		h1 = .InsertItem(h,Nothing,"Task 1")
		h2 = .InsertItem(h1,Nothing,"Task 2")
		h2 = .InsertItem(h1,Nothing,"Task 3")
		h3 = .InsertItem(h,Nothing,"Task 3")
		.ExpandItem(h) = True
		.ExpandItem(h1) = True
		h = .AddItem("Group 2")
		.ItemBold(h) = True
		.ItemDivider(h) = 0
		.LockedItemCount(EXGRIDLib.VAlignmentEnum.exBottom) = 1
		h = .LockedItem(EXGRIDLib.VAlignmentEnum.exBottom,0)
		.CellValue(h,0) = "Click a row, and move by dragging <b>up, down</b> to change the row's parent or <b>left,right</b> to increase or decrease the i" & _
"ndentation."
		.CellSingleLine(h,0) = EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exHTML
	End With
	.EndUpdate()
End With

Dim h,h1,h2,h3
With AxGrid1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.AutoDrag = EXGRIDLib.AutoDragEnum.exAutoDragPositionKeepIndent
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exNoLinesAtRoot
	.HasLines = EXGRIDLib.HierarchyLineEnum.exThinLine
	.ShowFocusRect = False
	.Columns.Add("Task")
	With .Items
		h = .AddItem("Group 1")
		.ItemDivider(h) = 0
		.ItemBold(h) = True
		h1 = .InsertItem(h,Nothing,"Task 1")
		h2 = .InsertItem(h,Nothing,"Task 2")
		h3 = .InsertItem(h,Nothing,"Task 3")
		.ExpandItem(h) = True
		h = .AddItem("Group 2")
		.ItemBold(h) = True
		.ItemDivider(h) = 0
	End With
	.EndUpdate()
End With

Dim h1,h2,h3
With AxGrid1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.AutoDrag = EXGRIDLib.AutoDragEnum.exAutoDragPosition
	.Columns.Add("Task")
	With .Items
		h1 = .AddItem("Task 1")
		h2 = .AddItem("Task 2")
		h3 = .AddItem("Task 3")
	End With
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	.Columns.Add("Def")
	.HotBackColor = RGB(0,0,128)
	.HotForeColor = RGB(255,255,255)
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Items
		.AddItem("Task 1")
		.AddItem("Task 2")
	End With
	.EndUpdate()
	.Template = "Dim p;p = CreateObject(`Exontrol.Print`);p.PrintExt = Me;p.AutoRelease = False;p.Preview();"
End With

With AxGrid1
	.BeginUpdate()
	.Columns.Add("Default")
	With .Items
		.AddItem("Item 1")
		.AddItem("Task 2")
	End With
	.EndUpdate()
	With CreateObject("Exontrol.Print")
		.PrintExt = AxGrid1.ExecuteTemplate("me")
		.Preview()
	End With
End With

With AxGrid1
	.BeginUpdate()
	With .ConditionalFormats.Add("1","K1")
		.BackColor = RGB(255,0,0)
		.ApplyTo = &H1
	End With
	With .ConditionalFormats.Add("1","K2")
		.BackColor = RGB(255,0,0)
		.ApplyTo = &H2
	End With
	.MarkSearchColumn = False
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exRowLines
	With .Columns
		.Add("Column 1")
		.Add("Column 2")
		.Add("Column 3")
	End With
	With .Items
		.AddItem()
		.AddItem()
		.AddItem()
	End With
	.EndUpdate()
End With

' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub AxGrid1_ButtonClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ButtonClickEvent) Handles AxGrid1.ButtonClick
	With AxGrid1
		With .DataSource
			.AddNew("Task","New-Task")
			.Update()
		End With
	End With
End Sub

' Error event - Fired when an internal error occurs.
Private Sub AxGrid1_Error(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ErrorEvent) Handles AxGrid1.Error
	With AxGrid1
		Debug.Print( e.description )
	End With
End Sub

Dim h,rs
With AxGrid1
	rs = CreateObject("ADODB.Recordset")
	With rs.Fields
		.Append("Task",8)
		.Append("Start",7)
		.Append("End",7)
	End With
	rs.Open()
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exRowLines
	.DetectAddNew = True
	.DetectDelete = True
	.DataSource = rs
	With .Items
		.LockedItemCount(EXGRIDLib.VAlignmentEnum.exTop) = 1
		h = .LockedItem(EXGRIDLib.VAlignmentEnum.exTop,0)
		.ItemDivider(h) = 0
		.ItemHeight(h) = 22
		.CellValue(h,0) = "AddNew"
		.CellHasButton(h,0) = True
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.CenterAlignment
	End With
End With

' OLEStartDrag event - Occurs when the OLEDrag method is called.
Private Sub AxGrid1_OLEStartDrag(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_OLEStartDragEvent) Handles AxGrid1.OLEStartDrag
	' Data.SetData("your data to drag")
	With AxGrid1
		e.allowedEffects = 2
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	.Columns.Add("Default")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
		.AddItem("Item 5")
	End With
	.OLEDropMode = EXGRIDLib.exOLEDropModeEnum.exOLEDropManual
	.EndUpdate()
End With

' AfterExpandItem event - Fired after an item is expanded (collapsed).
Private Sub AxGrid1_AfterExpandItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AfterExpandItemEvent) Handles AxGrid1.AfterExpandItem
	With AxGrid1
		Debug.Print( "AfterExpandItem" )
		Debug.Print( e.item )
	End With
End Sub

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub AxGrid1_AnchorClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AnchorClickEvent) Handles AxGrid1.AnchorClick
	With AxGrid1
		Debug.Print( "AnchorClick" )
		Debug.Print( e.anchorID )
		Debug.Print( e.options )
	End With
End Sub

' BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
Private Sub AxGrid1_BeforeExpandItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_BeforeExpandItemEvent) Handles AxGrid1.BeforeExpandItem
	With AxGrid1
		Debug.Print( "BeforeExpandItem" )
		Debug.Print( e.item )
	End With
End Sub

' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub AxGrid1_ButtonClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ButtonClickEvent) Handles AxGrid1.ButtonClick
	With AxGrid1
		Debug.Print( "ButtonClick" )
		Debug.Print( e.item )
		Debug.Print( e.colIndex )
		Debug.Print( e.key )
	End With
End Sub

' CellImageClick event - Fired after the user clicks on the image's cell area.
Private Sub AxGrid1_CellImageClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_CellImageClickEvent) Handles AxGrid1.CellImageClick
	With AxGrid1
		Debug.Print( "CellImageClick" )
		Debug.Print( e.item )
		Debug.Print( e.colIndex )
	End With
End Sub

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxGrid1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_CellStateChangedEvent) Handles AxGrid1.CellStateChanged
	With AxGrid1
		Debug.Print( "CellStateChanged" )
		Debug.Print( e.item )
		Debug.Print( e.colIndex )
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		Debug.Print( "Change" )
		Debug.Print( e.item )
		Debug.Print( e.colIndex )
		Debug.Print( e.newValue )
	End With
End Sub

' Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
Private Sub AxGrid1_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.ClickEvent
	With AxGrid1
		Debug.Print( "Click" )
	End With
End Sub

' ColumnClick event - Fired after the user clicks on column's header.
Private Sub AxGrid1_ColumnClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ColumnClickEvent) Handles AxGrid1.ColumnClick
	With AxGrid1
		Debug.Print( "ColumnClick" )
	End With
End Sub

' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub AxGrid1_DblClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_DblClickEvent) Handles AxGrid1.DblClick
	With AxGrid1
		Debug.Print( "DblClick" )
		Debug.Print( e.shift )
		Debug.Print( e.x )
		Debug.Print( e.y )
		.Edit()
	End With
End Sub

' Edit event - Occurs just before editing the focused cell.
Private Sub AxGrid1_EditEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_EditEvent) Handles AxGrid1.EditEvent
	With AxGrid1
		Debug.Print( "Edit" )
		Debug.Print( e.item )
		Debug.Print( e.colIndex )
	End With
End Sub

' EditClose event - Occurs when the edit operation ends.
Private Sub AxGrid1_EditCloseEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.EditCloseEvent
	With AxGrid1
		Debug.Print( "EditClose" )
	End With
End Sub

' EditOpen event - Occurs when the edit operation starts.
Private Sub AxGrid1_EditOpen(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.EditOpen
	With AxGrid1
		Debug.Print( "EditOpen" )
	End With
End Sub

' FilterChange event - Occurs when filter was changed.
Private Sub AxGrid1_FilterChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.FilterChange
	With AxGrid1
		Debug.Print( "FilterChange" )
	End With
End Sub

' FilterChanging event - Notifies your application that the filter is about to change.
Private Sub AxGrid1_FilterChanging(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.FilterChanging
	With AxGrid1
		Debug.Print( "FilterChanging" )
	End With
End Sub

' FocusChanged event - Occurs when a new cell is focused.
Private Sub AxGrid1_FocusChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.FocusChanged
	With AxGrid1
		Debug.Print( "FocusChanged" )
	End With
End Sub

' KeyDown event - Occurs when the user presses a key while an object has the focus.
Private Sub AxGrid1_KeyDownEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_KeyDownEvent) Handles AxGrid1.KeyDownEvent
	With AxGrid1
		Debug.Print( "KeyDown" )
		Debug.Print( e.keyCode )
		Debug.Print( e.shift )
	End With
End Sub

' KeyPress event - Occurs when the user presses and releases an ANSI key.
Private Sub AxGrid1_KeyPressEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_KeyPressEvent) Handles AxGrid1.KeyPressEvent
	With AxGrid1
		Debug.Print( "KeyPress" )
		Debug.Print( e.keyAscii )
	End With
End Sub

' KeyUp event - Occurs when the user releases a key while an object has the focus.
Private Sub AxGrid1_KeyUpEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_KeyUpEvent) Handles AxGrid1.KeyUpEvent
	With AxGrid1
		Debug.Print( "KeyUp" )
		Debug.Print( e.keyCode )
		Debug.Print( e.shift )
	End With
End Sub

' LayoutChanged event - Occurs when column's position or column's size is changed.
Private Sub AxGrid1_LayoutChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.LayoutChanged
	With AxGrid1
		Debug.Print( "LayoutChanged" )
	End With
End Sub

' MouseDown event - Occurs when the user presses a mouse button.
Private Sub AxGrid1_MouseDownEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_MouseDownEvent) Handles AxGrid1.MouseDownEvent
	With AxGrid1
		Debug.Print( "MouseDown" )
		Debug.Print( e.button )
		Debug.Print( e.shift )
		Debug.Print( e.x )
		Debug.Print( e.y )
	End With
End Sub

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxGrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_MouseMoveEvent) Handles AxGrid1.MouseMoveEvent
End Sub

' MouseUp event - Occurs when the user releases a mouse button.
Private Sub AxGrid1_MouseUpEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_MouseUpEvent) Handles AxGrid1.MouseUpEvent
	With AxGrid1
		Debug.Print( "MouseUp" )
		Debug.Print( e.button )
		Debug.Print( e.shift )
		Debug.Print( e.x )
		Debug.Print( e.y )
	End With
End Sub

' OffsetChanged event - Occurs when the scroll position has been changed.
Private Sub AxGrid1_OffsetChanged(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_OffsetChangedEvent) Handles AxGrid1.OffsetChanged
	With AxGrid1
		Debug.Print( "OffsetChanged" )
		Debug.Print( e.horizontal )
		Debug.Print( e.newVal )
	End With
End Sub

' OversizeChanged event - Occurs when the right range of the scroll has been changed.
Private Sub AxGrid1_OversizeChanged(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_OversizeChangedEvent) Handles AxGrid1.OversizeChanged
	With AxGrid1
		Debug.Print( "OversizeChanged" )
		Debug.Print( e.horizontal )
		Debug.Print( e.newVal )
	End With
End Sub

' RClick event - Fired when right mouse button is clicked
Private Sub AxGrid1_RClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.RClick
	With AxGrid1
		Debug.Print( "RClick" )
	End With
End Sub

' ScrollButtonClick event - Occurs when the user clicks a button in the scrollbar.
Private Sub AxGrid1_ScrollButtonClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ScrollButtonClickEvent) Handles AxGrid1.ScrollButtonClick
	With AxGrid1
		Debug.Print( "ScrollButtonClick" )
		Debug.Print( e.scrollBar )
		Debug.Print( e.scrollPart )
	End With
End Sub

' SelectionChanged event - Fired after a new item has been selected.
Private Sub AxGrid1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.SelectionChanged
	With AxGrid1
		Debug.Print( "SelectionChanged" )
	End With
End Sub

' Sort event - Fired when the control sorts a column.
Private Sub AxGrid1_Sort(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.Sort
	With AxGrid1
		Debug.Print( "Sort" )
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	.Images("gBJJgBAIEAAGAEGCAAhb/hz/EIAh8Tf5CJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1BAmBhOCwMGwuDw2ExWJxmIx2HyGLv+TlykUCgABmGYzzObzuczWcKujzOa0ug02h" & _
"z+r1Wtz2qoCA2QAYG1yk02YA3NMy2Yh8Sh202zx4gA4jxADM5XG4vHACy6ESdjM6XUZiZTMS5bwZSm1c83+yQHCYHk81Q8O7qW18u/9NG3vAf/y83u4PQWQA0ZVADq/z" & _
"6um6rkuw7TqH+5bYJu+z5vE8z2N02cGweoDfwfCrbQfBqkNzBb6QfDLxp6+LlOs5cSOTEzlm7FYACFFwADvGIAGvGjzOu7MbwHHECQSmUOvS8cGwk20gQc2ycQs4MLvL" & _
"D8MNtDSfyS+cmyZJzywa96axzDsTw6/x1AAL8xRbF8Vm65jkH/AL8QFNTqR6lsfuDIb2uDKTzTo88FTtIk+PK3SNRDKiew5JVDSnK08NnOUGRClkt0PFEDUjMwAENS4A" & _
"M2zj4udNznujT1PTgjdGQg8c71RPtESvCL1JrO8lozQUj1nP6d1TKtc0U8dS1jCaNRzGhrxnGthWJYdjUrYwc2ZMMx2NB8czZNk4VLPMstzXD6Q6mltVjPNAT0m1CvnD" & _
"tBxBXlI3PRKNzZDtjQ6cd5TQ/TSU0/r/udC0A1Ez1SUja8/QhWVavrSLfpxWNzXZR2CygmVtXXVl03Lg+BV+lV3UjeDgzEL4AXkcb6Pje5LZNDzhuLfrOX/RtT0TQbc5" & _
"lENSvBi2K5xlFdUHhN1ZhJ9F59WybOU7NjWTFkvxhGT9zIIQAWYHIABFqmnABSsT0HUaNYlI1dZmjNuUDRybzvIVWyDoOc54n8Oyxm9Ta9cSUaLbbg44+b4xiO9nY/pt" & _
"73u38Tuc52tpdruYxDVyUbBV+gYpu2c7PyGMKTt21cjnW6OvzO8PppUvP/Ljlt/wt/Vvn+v8V1eCdbgaa7fnMi8vyD0TnzGEJXyp/wJ3js98iXe+F3/hwGM3jeQZjTeU" & _
"znmOT5bTKJyqYcbm2c5bzXpqvsWw4FUkCO473wgB8cD9/znzO14n1+D4/efcTP4fl5+WKvxbbptmqV+B/ni/68R4514AvxeTAR50B3oPNei/iBhFgfErgeR4kBIiSAAJ" & _
"KSiC7PT5wMKIQ4fwfyHDzg2PwD4/B/jgg2PgA48AfjgB+RkeAARwAPGAA8jI4AADgAOMAAZGTyw6YbDkA7ZDaAHgxDyCxGgBw8EBBmJcS4LjAATDweBGoqjgAGP4jQ/A" & _
"cjwAHBsiQex8gPH+MF7pDxxkB")
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.GridLineStyle = EXGRIDLib.GridLinesStyleEnum.exGridLinesHDash
	.AutoEdit = False
	.ExpandOnDblClick = False
	With .Columns
		With .Add("Column")
			.DisplayFilterButton = True
			.Def(EXGRIDLib.DefColumnEnum.exCellHasCheckBox) = True
			.Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
		End With
		With .Add("Button")
			.AllowSizing = False
			.Width = 18
			.Def(EXGRIDLib.DefColumnEnum.exCellHasButton) = True
		End With
	End With
	With .Items
		h = .AddItem("parent")
		.CellImage(h,0) = 1
		.InsertItem(h,"","child")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With

' ColumnClick event - Fired after the user clicks on column's header.
Private Sub AxGrid1_ColumnClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ColumnClickEvent) Handles AxGrid1.ColumnClick
	' Column.Selected = True
	With AxGrid1
		.BeginUpdate()
		.Columns.Item(0).Selected = False
		.Columns.Item(1).Selected = False
		.Items.SelectAll()
		.EndUpdate()
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	.ShowFocusRect = False
	.SingleSel = False
	.FullRowSelect = EXGRIDLib.CellSelectEnum.exRectSel
	.SortOnClick = EXGRIDLib.SortOnClickEnum.exNoSort
	With .Columns
		.Add("Column1")
		.Add("Column2")
	End With
	With .Items
		.CellValue(.AddItem("One"),1) = "Three"
		.CellValue(.AddItem("Two"),1) = "Four"
		.SelectAll()
	End With
	.EndUpdate()
End With

With AxGrid1
	With .Columns.Add("Currency")
		.FormatColumn = "dbl(value) ? currency(dbl(value)) : ``"
		With .Editor
			.EditType = EXGRIDLib.EditTypeEnum.EditType
			.Numeric = EXGRIDLib.NumericEnum.exFloat
		End With
	End With
	With .Items
		.AddItem(1.23)
		.AddItem(2.34)
		.AddItem(0)
		.AddItem(10000.99)
	End With
End With

With AxGrid1
	.Columns.Add("Number")
	.Columns.Add("Currency").ComputedField = "%0 ? currency(%0) : ``"
	With .Items
		.AddItem(1.23)
		.AddItem(2.34)
		.AddItem(0)
		.AddItem(10000.99)
	End With
End With

With AxGrid1
	.BeginUpdate()
	.BackColorAlternate = RGB(240,240,240)
	.Columns.Add("Names")
	With .Items
		.AddItem("Mantel")
		.AddItem("Mechanik")
		.AddItem("Motor")
		.AddItem("Murks")
		.AddItem("Märchen")
		.AddItem("Möhren")
		.AddItem("Mühle")
	End With
	.Columns.Item(0).SortOrder = EXGRIDLib.SortOrderEnum.SortAscending
	.EndUpdate()
	Debug.Print( .GetItems(1) )
End With

' EditClose event - Occurs when the edit operation ends.
Private Sub AxGrid1_EditCloseEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.EditCloseEvent
	With AxGrid1
		.Items.AddItem("")
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	.AutoEdit = True
	.Columns.Add("Default").Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
	.FullRowSelect = EXGRIDLib.CellSelectEnum.exColumnSel
	.Items.AddItem("")
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	.ScrollBars = EXGRIDLib.ScrollBarsEnum.exDisableBoth
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.HeaderHeight = 48
	.Columns.Add("DefaultSize").HTMLCaption = "Default-Size <img>pic1</img> Picture"
	.Columns.Add("CustomSize").HTMLCaption = "Custom-Size <img>pic1:16</img> Picture"
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	With .ConditionalFormats.Add("1")
		.Bold = True
		.ForeColor = RGB(255,0,0)
		.ApplyTo = &H1
	End With
	.Columns.Add("C1")
	With .Columns.Add("C2")
		.HeaderBold = True
		.HTMLCaption = "<fgcolor=FF0000>C2"
	End With
	With .Items
		.CellValue(.AddItem(10),1) = 11
		.CellValue(.AddItem(12),1) = 13
	End With
	.EndUpdate()
End With

With AxGrid1
	With .Columns.Add("Check")
		With .Editor
			.EditType = EXGRIDLib.EditTypeEnum.CheckValueType
			.Option(EXGRIDLib.EditorOptionEnum.exCheckValue2) = 1
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.CustomFilter = "checked||-1|||unchecked||0"
	End With
	With .Items
		.AddItem(True)
		.AddItem(True)
		.AddItem(False)
		.AddItem(True)
		.AddItem(False)
		.AddItem(True)
		.AddItem(False)
	End With
End With